1. Задать массив из 10 частей с пом.генератора случ. Чисел из

1)
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
a[i]:=a[i]*3;
write(a[i],' ');
end;
end.

2)
Program n1;
var a: array[1..80] of integer;
b: array[1..80] of real;
i: integer;
begin
for i:=1 to 80 do
begin
a[i]:=random(51)+50;
b[i]:=sqrt(a[i]);
write(a[i],' ');
end;
writeln;
for i:=1 to 80 do write(b[i],' ');
end.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,10,30); a.Println;
  a.Transform(x-gt;x*3); a.Println
end.

Пример
15 27 21 27 22 15 13 20 16 26
45 81 63 81 66 45 39 60 48 78

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(80,50,100); a.Println;
  var b:=a.Select(x-gt;Sqrt(x)).ToArray; b.Println
end.

Пример
53 52 62 91 55 89 61 74 88 92 50 65 61 95 74 76 75 90 67 98 76 53 51 58 83 58 84 99 54 80 86 60 69 84 96 71 76 66 92 66 87 92 65 89 56 89 96 71 66 66 68 63 98 72 81 50 50 53 57 97 55 63 69 58 55 90 97 77 99 52 50 58 99 50 61 84 88 63 52 95
7.28010988928052 7.21110255092798 7.87400787401181 9.53939201416946 7.41619848709566 9.4339811320566 7.81024967590665 8.60232526704263 9.38083151964686 9.59166304662544 7.07106781186548 8.06225774829855 7.81024967590665 9.74679434480896 8.60232526704263 8.71779788708135 8.66025403784439 9.48683298050514 8.18535277187245 9.89949493661167 8.71779788708135 7.28010988928052 7.14142842854285 7.61577310586391 9.1104335791443 7.61577310586391 9.16515138991168 9.9498743710662 7.34846922834953 8.94427190999916 9.2736184954957 7.74596669241483 8.30662386291807 9.16515138991168 9.79795897113271 8.42614977317636 8.71779788708135 8.12403840463596 9.59166304662544 8.12403840463596 9.32737905308882 9.59166304662544 8.06225774829855 9.4339811320566 7.48331477354788 9.4339811320566 9.79795897113271 8.42614977317636 8.12403840463596 8.12403840463596 8.24621125123532 7.93725393319377 9.89949493661167 8.48528137423857 9 7.07106781186548 7.07106781186548 7.28010988928052 7.54983443527075 9.8488578017961 7.41619848709566 7.93725393319377 8.30662386291807 7.61577310586391 7.41619848709566 9.48683298050514 9.8488578017961 8.77496438739212 9.9498743710662 7.21110255092798 7.07106781186548 7.61577310586391 9.9498743710662 7.07106781186548 7.81024967590665 9.16515138991168 9.38083151964686 7.93725393319377 7.21110255092798 9.74679434480896