1. Массив вводится с клавиатуры как округленные до целого числа…

1. Массив вводится с клавиатуры как округленные до целого числа градусов температуры в каждый день апреля. Нужно вывести на экран максимум температуры вовторой половине месяца (с 15 месяца). Задачу решить оптимально, т.е. за минимально возможное время выполнения 2. Измените первую программу из задания 1 так, чтобы она выводила все дни в апреле, когда максимальная температура приходилась на четную дату 3. Измените программу из задания 2 так, чтобы она выводила количество дней в апреле, когда максимальная температура приходилась на четную дату

в избранное

josesuertero

23 августа 2022

1) Var a: array[1… 30] of integer; max,i: integer; Begin for i: =1 to 30 do readln (a[i]); max: =a[15]; for i: =15 to 30 do if a[i]>max then max: =a[i]; writeln ('Max=',max); End.2) Var a: array[1… 30] of integer; max,i: integer; Begin for i: =1 to 30 do readln (a[i]); max: =a[1]; for i: =1 to 30 do if a[i]>max then max: =a[i]; writeln ('Max=',max); for i: =1 to 30 do if (a[i]=max) and (i mod 2)=0) then write (i,', '); End.3) Var a: array[1… 30] of integer; max,i,k: integer; Begin for i: =1 to 30 do readln (a[i]); max: =a[1]; for i: =1 to 30 do if a[i]>max then max: =a[i]; writeln ('Max=',max); k: =0; for i: =1 to 30 do if (a[i]=max) and (i mod 2)=0) then k: =k+1; writeln ('Ответ: ',k); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?