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.

А) НОЧЬ - НОЛЬ - МОЛЬ - МЕЛЬ - ДЕЛЬ - ДЕНЬ
Дель — мелкая сеть
 
б) РОТА - НОТА - БОТА - БОЛА - ПОЛА - ПОЛК
Бота — испанский мешок для вина
Бола — испанское метательное оружие
 
в) БАНТ - КАНТ - КАРТ - КОРТ - КОРА - КОСА
 
г) БЕГ - БЕЛ - МЕЛ - МЕХ - МОХ - ЛOХ - ЛОГ - ЛАГ - ШАГ
Бел — единица громкости звука
Лoх — китайский кустарник
Лаг — прибор для измерения скорости судна
 
д) МОРЕ - МОРГ - ТОРГ - ТОРТ - СОРТ - БОРТ - БУРА - СУРА - СУША
Бура — минерал
Сура — раздел в Коране
 
е) МИГ - МИМ - ЖИМ - ЖОМ - КОМ - КОЛ - КОК - ВОК - ВЕК
Вок — китайский котёл для жарки

А) НОЧЬ - НОЛЬ - МОЛЬ - МЕЛЬ - ДЕЛЬ - ДЕНЬ
Дель — мелкая сеть
 
б) РОТА - НОТА - БОТА - БОЛА - ПОЛА - ПОЛК
Бота — испанский мешок для вина
Бола — испанское метательное оружие
 
в) БАНТ - КАНТ - КАРТ - КОРТ - КОРА - КОСА
 
г) БЕГ - БЕЛ - МЕЛ - МЕХ - МОХ - ЛOХ - ЛОГ - ЛАГ - ШАГ
Бел — единица громкости звука
Лoх — китайский кустарник
Лаг — прибор для измерения скорости судна
 
д) МОРЕ - МОРГ - ТОРГ - ТОРТ - СОРТ - БОРТ - БУРА - СУРА - СУША
Бура — минерал
Сура — раздел в Коране
 
е) МИГ - МИМ - ЖИМ - ЖОМ - КОМ - КОЛ - КОК - ВОК - ВЕК
Вок — китайский котёл для жарки