Помогите с 7-мым,пожалуйста

Помогите с 7-мым,пожалуйста

Задать свой вопрос
1 ответ
Подразумевается, что будет введено минимум одно значение.
 
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a gt; max) and (a lt;gt; 0) thenmax := a;until a = 0;writeln(max);readln;end.
 
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
 
Подробнее - на Znanija.com - znanija.com/task/1506362readmore
Танюха Забежкина
Подразумевается, что будет введено минимум одно значение. varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end. P.S. Если понравилось решение не забудь отметить как лучшше. ;) 
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт