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

Question

Информатика

Феофила

31 октября, 14:47

Паскаль сформировать массив из 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.

Тестани =)