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

Паскаль. Даны среднесуточные температуры в марте месяце (от-5.5 до +15.5), вывести их на экран, вывести самый холодный и самый теплый день и температуру на экран.

Показать ответ
Ответ:
dimabolnygin
dimabolnygin
04.01.2021 18:40

var

 t,min,max: real;

 i,tmin,tmax: byte;

begin

 min:=16; max:=-6;

 for i:=1 to 31 do

   begin

     readln (t);

     if t>max then

       begin

         max:=t;

         tmax:=i;

       end;

     if t<min then

       begin

         min:=t;

         tmin:=i;

       end;        

   end;

 writeln;

 writeln('Min: ', min, ',  day: ',tmin);

 writeln('Mxn: ', max, ',  day: ',tmax);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота