Валентин 31 октября 2019 в 09:20
Сформировать любой одномерный массив. Все его элементы возвести в квадрат. Вывести ответ в строку через пробел.
Сформировать любой одномерный массив. Все его элементы возвести в квадрат. Вывести ответ в строку через пробел.
Begin
randomize;
var n:integer;
n:=random(11)+3;
var ar := arrrandom(n, -10, 10);
ar.Print;
writeln();
writeln();
ar.Select(x-gt;sqr(x)).Print;
end.
randomize;
var n:integer;
n:=random(11)+3;
var ar := arrrandom(n, -10, 10);
ar.Print;
writeln();
writeln();
ar.Select(x-gt;sqr(x)).Print;
end.
Компьютеры и вычисления
178
20
Для комментирования необходимо зарегистрироваться на сайте