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.