Составить программу, в которой каждый элемент массива возводится в квадрат

Question

Информатика

Зарик

22 января, 16:07

Составить программу, в которой каждый элемент массива возводится в квадрат

+1

Ответы (1)

Знаете ответ на вопрос?

Фоби · Answer 1

Var i: integer;

a: array[1 ... 10] of Integer;

begin

for i:=1 to 10 do

begin

a[i]:=i;

writeln ('Число: ', a[i]) ;

end;

for i:=1 to 10 do

begin

a[i]:=a[i]*a[i];

writeln (a[i]) ;

end;

end.