Программа ввода и вывода данных. возведение в квадрат кождого элемента массива. путём randomize. от 1 до 20

215

332

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

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

Нака0987

Информатика

4,4(83 оценок)

Const n = 13; var a: array[1..n] of integer; i: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(19)+1; write(' ',a[i]); end; writeln; write('каждый элемент возводится в квадрат: '); for i: = 1 to n do begin a[i]: =a[i]*a[i]; write(' ',a[i]) end end.