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

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal:

program ReplaceArrayElements
va
arr: array [1..12] of Integer
i, sum, avg: Integer
begi
sum := 0
writeln('Введите элементы массива:')
i := 1
while i <= 12 d
begi
write('arr[', i, '] = ')
readln(arr[i])
sum := sum + arr[i]
i := i + 1
end
avg := sum div 12
writeln('Исходный массив:')
i := 1
repea
write(arr[i], ' ')
i := i + 1
until i > 12
writeln
i := 1
repea
if arr[i] < avg the
arr[i] := 3
i := i + 1
until i > 12
writeln('Массив после замены:')
i := 1
repea
write(arr[i], ' ')
i := i + 1
until i > 12
writeln
end.

Эта программа создает массив из 12 элементов, затем заполняет его значениями, вычисляет среднее значение элементов массива, заменяет элементы, которые меньше среднего значения, на число "3" и выводит исходный и измененный массивы.