Наименьший член последовательности заменить целой частью среднего арифметического всех членов - Turbo Pascal (33754)

Формулировка задачи:

Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2, ..., an заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения. Если в последовательности несколько членов со значением min(a1, a2, ..., an), то заменить последний по порядку.

Код к задаче: «Наименьший член последовательности заменить целой частью среднего арифметического всех членов - Turbo Pascal (33754)»

textual
uses crt;
var n,sum,i,j,min,sr:integer;
a: array [1..1000] of integer;
begin
clrscr;
write('vvedite kol-vo elem: ');
readln(n);
write('vvedite elementi: ');
min:=32767;
for i:=1 to n do
begin
read(a[i]);
sum:=sum+a[i];
if a[i]<=min then begin min:=a[i]; j:=i; end;
end;
sr:=trunc(sum/n);
a[j]:=sr;
for i:=1 to n do
write(a[i]:4,' ');
readln;
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ