Question

дан массив из 60 элементов(заполнен через датчик случайных чисел: числа от 10 до 45. Все его элементы возвести в квадрат

Answer 1

Program n_1;

var i: integer; arr: array [1..60] of integer;

begin

   randomize;

   for i:=1 to 60 do begin arr[i]:=random(36)+10; write(arr[i]:4, ' '); arr[i]:=arr[i]*arr[i]; end;

   writeln();

   for i:=1 to 60 do write(arr[i]:4, ' ');

end.