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

вот примерчик тебе, поймеш или нет незнаю.
Допустим за дверью у тебя стоят студенты, они заходят по очереди и не росту.
зашол первый студент, он один и его неским сравнивать значит он самый высокий. Потом заходи второй студент, у нас уже один есть и сравнием их, если он више то оставляем, если ниже то оправлем дальше.
Потом заходит следущий, сравниваем, если выше оставляем если нет отправляем . И так с каждим студентом.

Ток у нас числа место студентов

Спасибо понял

Можно вот так (для целых чисел)

var
  n,max: integer;

begin
  max:=Low(integer);         {сначала берем минимальное число из возможных}
  repeat
    ReadLn(n);
    if not EoF(input) and (n>max) then max:=n;    {это основной оператор}
  until EoF(input);          {заканчиваем вводом ctrl-Z на отдельной строке}
  WriteLn('max = ',max)
end.

Тут нет защиты от пустого ввода.

Новую тему не смог создать, т.к. не смог зарегиться письмо о активации аккаунта не приходит( Вот и пишу тут...

Помогите написать 2 проги...

1.Дана последовательность чисел. Все элементы, не равные нулю, перенести, сохраня их порядок, в начало последовательности, а нулевые - в конец.
(т.е. Дан массив, заполняется он рандомно где нибудь из 15 чисел, потом выполняется сортировка, и нулевые элементы должны вывестись в конце последовательности(необходимо сформировать новый массив с данной последовательностью).

2.Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке.

Заранее спасибо огромное)