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

294

473

Посмотреть ответы 2

Ответы на вопрос:

CorjikPlay

Информатика

4,6(82 оценок)

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.