Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива):
заменить все элементы массива, которые меньше среднего значения, на «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 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]  write(a[i]:5);
 until i>=n;
end.