Question

Дан массив f(1: 9). построить новый массив к(1: 9), каждый элемент которого является квадратом соответствующего элемента массива f

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var f:=ArrRandom(9,-50,50); f.Println;
  var k:=f.Select(t->t*t).ToArray; k.Println
end.

Пример
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024

Answer 2

Var f,k:array [1..9] of integer;
i:integer;
begin
for i:= 1 to 9 do
f[i]:= Random(-5,5);
writeln(f);
for i:=1 to 9 do
k[i]:= sqr(f[i]);
writeln(k)
end.