Код IT
← Каталог

Pascal / Free Pascal — типовые программы — Шаблон E — числа в одной строке без n

Фрагмент из «Pascal / Free Pascal — типовые программы»: Шаблон E — числа в одной строке без n.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program LineMax;

var
  maxVal, x: integer;
  first: boolean;

begin
  first := true;
  while not Eof do
  begin
    Read(x);
    if first then
    begin
      maxVal := x;
      first := false;
    end
    else if x > maxVal then
      maxVal := x;
  end;
  ReadLn;
  WriteLn(maxVal);
end.
program LineMax;

var
  maxVal, x: integer;
  first: boolean;

begin
  first := true;
  while not Eof do
  begin
    Read(x);
    if first then
    begin
      maxVal := x;
      first := false;
    end
    else if x > maxVal then
      maxVal := x;
  end;
  ReadLn;
  WriteLn(maxVal);
end.