Alisa2853
07.05.2022 06:22

Напишите программу, которая в последовательности целых чисел определяет максимальное число. программа получает на вход целые числа, количество введенных чисел неизвестно. последовательность числа заканчивается числом 0. количество чисел не превышает 1000. введённые числа по модулю не превышает 30000. программа должна вывести одно максимальное число.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
p1pal1
24.09.2020 22:52
Var max, n: integer;
begin
  max := -30000;
  read(n);
  while n <> 0 do
  begin
    if n > max then max := n;
    read(n);
  end;
  write(max);
end. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота