заполните числовой массив из 20 элементов таким образом,чтобы значения элементов были равны квадратом индекса

(в паскале)

var

   i:integer;

   m:array[1..20] of integer;

 

begin

   for i:=1 to 20 do

   begin

      m[i]:=i*i;

      writeln(m[i]);

   end

end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку