Question

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива): заменить все элементы массива, которые меньше среднего значения, на «3» (12).

Answer 1

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.

Answer 2

Конечно! Вот пример программы на языке Pascal, который решает вашу задачу:

pascalCopy code
program ArrayManipulation;
const
  SIZE = 12; // Размерность массива

var
  arr: array[1..SIZE] of Integer;
  sum, average: Real;
  i: Integer;

begin
  // Ввод данных в массив
  i := 1;
  while i <= SIZE do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
    i := i + 1;
  end;

  // Вычисление суммы элементов массива
  sum := 0;
  i := 1;
  while i <= SIZE do
  begin
    sum := sum + arr[i];
    i := i + 1;
  end;

  // Вычисление среднего значения
  average := sum / SIZE;

  // Замена элементов, меньших среднего значения, на 3
  i := 1;
  repeat
    if arr[i] < average then
      arr[i] := 3;
    i := i + 1;
  until i > SIZE;

  // Вывод массива
  i := 1;
  repeat
    Write(arr[i], ' ');
    i := i + 1;
  until i > SIZE;

  ReadLn;
end.

В этой программе мы используем цикл WHILE...DO для ввода данных в массив и вычисления суммы элементов. Затем мы вычисляем среднее значение и заменяем все элементы, которые меньше среднего значения, на 3 с помощью цикла REPEAT...UNTIL. Наконец, мы выводим измененный массив.

Обратите внимание, что размерность массива установлена в const SIZE = 12 (размерность 12), как указано в скобках в вашем вопросе. Если вам нужна другая размерность массива, вы можете изменить значение SIZE в программе соответственно.