Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MirAZdd
03.03.2021 14:57 •
Информатика
Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0
Показать ответ
Ответ:
555Maura555
20.07.2020 08:51
Var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
арсен128
16.09.2021 06:36
По какому правилу строится имя каталога? что такое текущий файл ? что такое фалов система? что такое подкаталог? что такое родительская каталог?...
Malinka961
24.05.2022 16:12
Правила оформления таблицы: Заголовки столбцов и строк должны быть краткими, не содержать лишних слов и, по возможности, сокращений. Желательно, чтобы все ячейки...
diana2005n
05.10.2021 23:49
1. В каких случаях могут быть опущены отдельные этапы построения и исследования модели? Приведите примеры создания моделей в процессе обучения....
вампир982
10.09.2021 00:14
Какие из приведенных ниже утверждений справедливы? Хранение информации можно осуществлять без компьютерных сетей. Хранение информации можно осуществлять без записи...
smaile2
10.05.2021 07:30
Вендиограмма штатив монопод...
Щплкуовощлл
10.11.2020 02:56
умоляю вас Выберите типовую блок-схему, которая решает данную задачу.Дано целое число. Если оно является положительным, возвести его в квадрат; в противном случае...
pollianna2
31.12.2022 07:08
Определяет названия кнопок группы вкладки Ссылки...
valeriia8
27.01.2020 12:17
Построить фнкцию, в которой координаты описывают известный вектор и в результате сложения, вычитания векторов получают новый вектор, вычисляют скалярное произведение...
annaobryv861
22.07.2022 02:57
Операция над списками в Питон Вариант 2 1. Дан одномерный массив, состоящий из N целочисленных элементов. Ввести массив с клавиатуры. Найти минимальный элемент....
НастяНевьянцева
12.12.2020 13:43
Кто шарит по телеграмму . Как сделать вот эту надпись? (Отметил на фото)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.