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

0 голосов

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


спросил от (16 баллов) в категории Информатика
1 Ответ
0 голосов
ответил от Одаренный (1.2k баллов)

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.

Тестани =)

...