Предмет: Информатика,
автор: lolgav12
Найти среднее арифметическое элементов отличных от минимального
Pascal ABC
Ответы
Автор ответа:
1
const n=15;
var i,k,mn,indm,sm: integer;
a: array[1..n] of integer;
sar: real;
begin
randomize;
writeln('исходный массив:');
mn:=n; sm:=0;
k:=1;
for i:=1 to n do
begin
a[i]:=random(-n,n);
sm:=sm+a[i];
write(a[i],' ');
if a[i]=mn then k:=k+1;
if a[i]<mn then
begin
mn:=a[i];
indm:=i;
k:=1;
end;
end;
writeln;
writeln('минимальный элемент: ',mn,' индекс: ',indm);
sm:=sm-a[indm]*k;
writeln('сумма элементов без минимального: ',sm);
sar:=sm/(n-k);
writeln('среднее арифметическое: ',sar:7:3);
end.
исходный массив:
-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
минимальный элемент: -14 индекс: 4
сумма элементов без минимального: 6
среднее арифметическое: 0.462
var i,k,mn,indm,sm: integer;
a: array[1..n] of integer;
sar: real;
begin
randomize;
writeln('исходный массив:');
mn:=n; sm:=0;
k:=1;
for i:=1 to n do
begin
a[i]:=random(-n,n);
sm:=sm+a[i];
write(a[i],' ');
if a[i]=mn then k:=k+1;
if a[i]<mn then
begin
mn:=a[i];
indm:=i;
k:=1;
end;
end;
writeln;
writeln('минимальный элемент: ',mn,' индекс: ',indm);
sm:=sm-a[indm]*k;
writeln('сумма элементов без минимального: ',sm);
sar:=sm/(n-k);
writeln('среднее арифметическое: ',sar:7:3);
end.
исходный массив:
-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
минимальный элемент: -14 индекс: 4
сумма элементов без минимального: 6
среднее арифметическое: 0.462
Интересные вопросы
Предмет: Математика,
автор: IMTHETUYAARA
Предмет: Геометрия,
автор: ovtriniti666
Предмет: Русский язык,
автор: wongwong
Предмет: Физика,
автор: Аноним