SC
Svetlana Corjan 3Акирова
нужно создать программу в паскале
Дан массив из 5 целых чисел, возвести все элементы массива в квадрат. вывести новый массив.
Дан массив из 5 целых чисел, возвести все элементы массива в квадрат. вывести новый массив.
Const n=5;
Var a:array[1..n] of integer; i:byte;
begin
for i:=1 to n do readln(a[ i ]);
for i:=1 to n do writeln(sqr(a[ i ]));
end.