1. Задать массив из 10 элементов с пом.генератора случ. Чисел из интервала (10,30)....

Question

1. Задать массив из 10 элементов с пом.генератора случ. Чисел из интервала (10,30). Увеличить каждое число в массиве три раза. Вывести на экран оба массив(результат и исходный)
2. Дано 2 массива из 80 элементов. Заполнить первый с помощью генератора случ. Чисел на интервале (50,100) и заполнить второй массив корнями квадратными из чисел исходного массива.

Answer 1

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

begin
  var a:=ArrRandom(10,10,30); a.Println;
  a.Transform(x->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->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

Answer 2

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.