Написать программку, которая определяет наибольшее число из введенной с клавиатуры

Написать программку, которая определяет наибольшее число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) . (Цикл Whil или Repeat)
Определение наибольшего числа последовательности
положительных чисел.
Вводите числа в строчку через пробел. Для завершения ввода введите ноль.
-gt; 56
-gt; 75
-gt; 43
-gt; О
Наибольшее число: 75.

Задать свой вопрос
1 ответ
Var i,max:integer;
begin
max:=0;
i:=-1;
while ilt;gt;0 do
begin
readln(i);
if igt;max then max:=i;
end;
write(max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт