В текстовом файле t записана непустая последовательность вещественных чисел, разделенных пробелами. Описать функцию max(t) для нахождения наибольшего из этих чисел — Pascal(Паскаль)

program hr;

var
  t: text;
  i, p, code: integer;
  s: string;
  m: array [1 .. 100] of real;
  max: real;

begin
  assign(t, 't.txt');
  reset(t);
  read(t, s);
  i := 0;
  repeat
    p := pos(' ', s);
    inc(i);
    val(copy(s, 1, p - 1), m[i], code);
    delete(s, 1, p);
  until p = 0;
  max := m[1];
  for p := 2 to i do
    if m[p] > max then
      max := m[p];

  writeln('MAX= ', max);

  close(t);
  readln;

end.

Leave a Comment