Паскаль сформировать массив из n элементов каждый элемент возвести в квадрат. вывести новый массив

Question

Информатика

Вавуся

26 августа, 22:56

Паскаль сформировать массив из n элементов каждый элемент возвести в квадрат. вывести новый массив

+4

Ответы (1)

Знаете ответ?

Филарета · Answer 1

Program p1;

var ch: array [1 ... 10] of integer;

i: integer;

begin

for i : = 1 to 10 do read (ch[i]) ;

for i : = 1 to 10 do ch[i]:=ch[i]*ch[i];

for i : = 1 to 10 do writeln (ch[i]) ;

readln

end.

Тестани =)