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

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

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.