Создать массив из 20 случайных чисел в диапазоне от -30 до 0. нечетные элементы возвести в квадрат и вывести на экран поиск массива.

231

407

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

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

Eliseyy

Информатика

4,8(55 оценок)

Const n=10; var x : array[1..n] of integer; i : integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin x[i]: =random(31)-30; write(x[i],' '); end; writeln; for i: =1 to n do if x[i] mod 2 < > 0 then x[i]: =x[i]*x[i]; writeln('измененный массив: '); for i: =1 to n do write(x[i],' '); writeln; end.