Question

Сформировать любой одномерный массив. Все его элементы возвести в квадрат. Вывести ответ в строку через пробел.

Answer 1

begin
randomize;
  var n:integer;
  n:=random(11)+3;
  var ar := arrrandom(n, -10, 10);
  ar.Print;
  writeln();
  writeln();
  ar.Select(x->sqr(x)).Print;
end.