Question

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

Answer 1

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.