Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива): заменить все элементы массива, которые мен...
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла 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=n;
writeln;
writeln('Отредактированный массив');
i:=0;
repeat
i:=i+1;
if a[i]=n;
end.
Не нашли ответ?
Похожие вопросы