Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла , а вывод – (в скобках указана размерность массива): заменить все элементы массива, которые меньше среднего значения, на «3» (12).
Const N=12; var a: array[1..N] of integer; avg:real; i:byte; begin writeln('Введите массив из ',N, 'элементов'); i:=0; avg:=0; while i<n do begin i:=i+1 ; read(a[i]); avg:=avg+a[i]; end; avg:=avg/n; i:=0; writeln('Исходный массив'); repeat i:=i+1; write(a[i]:5); until i>=n; writeln; writeln('Отредактированный массив'); i:=0; repeat i:=i+1; if a[i]<avg then a[i]:=3; write(a[i]:5); until i>=n; end.
var a: array[1..N] of integer;
avg:real;
i:byte;
begin
writeln('Введите массив из ',N, 'элементов');
i:=0; avg:=0;
while i<n do
begin
i:=i+1 ;
read(a[i]);
avg:=avg+a[i];
end;
avg:=avg/n;
i:=0;
writeln('Исходный массив');
repeat
i:=i+1;
write(a[i]:5);
until i>=n;
writeln;
writeln('Отредактированный массив');
i:=0;
repeat
i:=i+1;
if a[i]<avg then a[i]:=3;
write(a[i]:5);
until i>=n;
end.