Заполните одномерный массив размерностью в 20 элементов так, чтобы каждый элемент был равен квадрату своего номера. Сформированный массив вывести на экран в строку.
Заполните одномерный массив размерностью в 20 элементов так, чтобы каждый элемент был равен квадрату своего номера. Сформированный массив вывести на экран в строку.
Гость
Ответ(ы) на вопрос:
ГостьProgram Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.
Не нашли ответ?
Похожие вопросы