Паскаль:
Дан массив "А" состоящий из 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.