Question

Имеются бидоны вместимостью 1 л, 2 л, 3 л и 4 л. В какие бидоны можно слить молоко из двух банок, в которых содержится: а) 0,95 л и 0,85 л;

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.