Предполагается, что будет введено минимум одно значение.
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. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
1 файл - .pas
2 скрин коду
3 скрин результату
ОС обеспечивает совместное функционирование всех устройств компьютера и предоставляет пользователю доступ к его ресурсам. Без неё мы не сможем пользоваться компьютером
Компьютер это электронно вычислительная машина
инструмент это основное средство
цена компьютера это широкий выбор персональных компьютеров
Если -128 то митус это 1 байт и 128 это 7 байт помоему
если минус не считать то просто 7