Файл Date.in файл содержит 3 различных целых чисел, разделенных пробелами. Написать...

Question

Файл Date.in файл содержит 3 различных целых чисел, разделенных пробелами. Написать программу, которая укажет, какие из чисел является максимальным, минимальным и какие не является ни минимальным, ни максимальным. Результат отображается на экране и файле date.out.

Answer 1

Var
  a, b, c, min, max, mid: integer;
  f1, f2: Text;

begin
  Assign(f1, 'date.in');
  Reset(f1);
  Read(f1, a, b, c);
  Close(f1);
  if a > b then begin
    max := a; min := b
  end
  else begin
    max := b; min := a
  end;
  if max > c then begin
    if min < c then mid := c
    else begin
      mid := min; min := c
    end
  end
  else begin
    mid := max; max := c
  end;
  writeln('Меньшее=', min, ' среднее=', mid, ' большее=', max);
  Assign(f2, 'date.out');
  Rewrite(f2);
  Write(f2, min, ' ', mid, ' ', max);
  Close(f2)
end.