В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Kanmoen014
Kanmoen014
21.10.2021 10:05 •  Информатика

Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. (

Показать ответ
Ответ:
veroni4kaa
veroni4kaa
20.06.2020 14:55
Var max,min,x: real;
      i:byte;
Begin
read(x);
min:=x;
max:=x;
     for i:=2 to 5 do
         begin
            read(x);
            if (x<min) then min:=x
            else 
               if (x>max) then max:=x;
          end;
writeln ('Max = ', max,' Min = ', min);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота