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

1)Program n1;var a: array[1..10] of integer;i: integer;beginrandomize;for i:=1 to 10 do begina[i]:=random(21)+10;write(a[i],' ');end;writeln;for i:=1 to 10 dobegina[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;beginfor 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.