Наибольшее из N чисел Опции

[barlog]

Нужно написать прогу по нахождению максимального числа из введённых.
Вот одна из них. Но если числа вводятся рандомом? Нужен алгоритм, так как он может быть не один, то самый лучший из них.

Код

Program maximum;
Var    N, max, next, k: integer;
Begin
  Write('Введите количество чисел'); Readln(n);
  Write('Введите число'); Readln(max);
  k:=1;
  repeat
    Write('Введите число'); Readln(next);
    K:=k+1;
    If next>max then max:=next
  Until k=n;
  Writeln(max);
  Readln
End.

[мисс_граффити]

а если они вдруг начнут вводиться рэндомом (всякое в жизни бывает), то достаточно в приведенном volvo коде изменить

Код

Write('Введите число'); Readln(next);

на

Код

next:=random(100)-50; {это для примера. чтобы были и положительные, и отрицательные}
writeln(next); {чтобы отслеживать, что у нас там навводилось}

а если вводим вручную... может, заранее не просить количество чисел? спрашивать "хотите ввести еще одно?".

Сообщение отредактировано: мисс_граффити - 26.09.2006 18:46