Нужно решить задачу:В переменную X по очереди вводится последовательность целых чисел

Нужно решить задачу:
В переменную X по очереди вводится последовательность целых чисел до ввода 0. В переменной max получить максимальное из чисел.
Необходимо эту задачку решить в цикле, можно блок схемой либо программкой на языке Pascal.

Задать свой вопрос
1 ответ
Var x,max:integer;
begin
write('x='); readln(x);
max:=x;
while xlt;gt;0 do
 begin
 if xgt;max then max:=x;
 write('x='); readln(x);
 end;
writeln('max=',max);
end.

Пример:
x=12
x=34
x=87
x=46
x=39
x=7
x=45
x=0
max=87
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт