Как написать програму в которую вводится определёная последавтельность чисел и нужно найти самое большое число... Как вводить даные то ясно а сам алгоритм нахождения максимального числа не совсем...
вот примерчик тебе, поймеш или нет незнаю.
Допустим за дверью у тебя стоят студенты, они заходят по очереди и не росту.
зашол первый студент, он один и его неским сравнивать значит он самый высокий. Потом заходи второй студент, у нас уже один есть и сравнием их, если он више то оставляем, если ниже то оправлем дальше.
Потом заходит следущий, сравниваем, если выше оставляем если нет отправляем . И так с каждим студентом.
Ток у нас числа место студентов
Можно вот так (для целых чисел)
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.Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке.
Заранее спасибо огромное)