Найти среднее арифметическое элементов отличных от минимального Pascal ABC
Answers & Comments
srzontmp
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.
Answers & Comments
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