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

Question

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

Answer 1

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.