Створити і вивести масив з квадратів перших 10 чисел.
Створити і вивести масив з квадратів перших 10 чисел.
Гость
Ответ(ы) на вопрос:
Гостьprogram Massiv;
uses
crt;
var
a: array[0..9] of integer;
i: integer;
begin
clrscr;
for i:=0 to 9 do
a[i]:=sqr(i+1);
for i:=0 to 9 do
writeln('a[',i,']=',a[i]);
Readln;
end.
Не нашли ответ?
Похожие вопросы