Паскаль сформировать массив из n элементов каждый элемент возвести в квадрат. вывести новый массив
Паскаль сформировать массив из n элементов каждый элемент возвести в квадрат. вывести новый массив
Гость
Ответ(ы) на вопрос:
Гость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.
Тестани =)
Не нашли ответ?
Похожие вопросы