Question

Задача в ПАСКАЛЕ. Дан массив из 13 элементов заполнить этот массив случайными числами вывести на экран элемент если он равен квадрату его порядкового номера

Answer 1

Программа:

Pascal:

var arr: array[1..13] of integer;

begin

 for var i := 1 to 13 do begin

   arr[i] := random(10);

   if arr[i] = sqr(i) then writeln(arr[i], ' ');

 end;

end.