Поиск максимального числа из всех введенных.


Program maximum;
Uses
Crt;
const num = 10;

Var
max: Integer; { максимальное значение }
n: Integer; { число }
i: Integer; { счетчик цикла }
Begin
ClrScr;
for i:=0 to num-1 do
begin
WriteLn(i, ‘-е число = ‘); { просим пользователя ввести число }
ReadLn(n); { считываем число в переменную n }
{ если очередное число больше максимального, то заменяем }
{ максимальное число на n }
if (n>max) then max :=n;
end;
WriteLn(‘Максимальное число = ‘, max);
ReadLn;

end.