Паскаль:

Дан массив "А" состоящий из 10 случайных чисел, сформировать новый массив "В", значения которого будут в 5 раз меньше значения массива "А"

Var

A: array [1 ... 10] of real;

B: array [1 ... 10] of real;

i: integer;

begin

writeln ('Массив А:') ;

for i: = 1 to 10 do

begin

A[i]: = random (200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}

writeln (A[i]) ;

end;

writeln ('Массив В:') ;

for i: = 1 to 10 do

begin

B[i]: = A[i] / 5;

writeln (B[i]) ;

end;

end.