Дана последовательность целых чисел а1, а2, …, аn. Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменений
Code
program min;
const N= 5;
var A: array[1..N] of integer;
i, min, buf : integer;
sred: real;
begin
buf:= 0;
sred:= 0;
Writeln('Massiv A = ');
for i:= 1 to N do begin
A[i]:= 50-random(50);
Write(A[i], ' ');
sred:= sred + A[i];
end;
min:= A[1];
for i:= 1 to N do begin
if A[i] < min then begin
min:=A[i];
buf:= i;
end;
end;
sred:= sred/N;
A[buf]:= TRUNC(sred);
Writeln;
Writeln('Massiv A = ');
for i:= 1 to N do
Write(A[i], ' ');
Readln;
end.