Question

СРОЧНО ИНФОРМАТИКА ПОЖАЛУЙСТА

необходимо заполнить массив к квадратами чисел от 1 до 100 и вывести его на экран
расположите строки программы по порядку

Answer 1

Ответ:

program N1;

const n=100;

var K:array [1..n] of integer;

i:integer;

begin

for i:=1 to n do begin

K[i]:=i*i;

write(K[i],' ')

end

end.