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

2. Измените первую программу из задания 1 так, чтобы она выводила все дни в апреле, когда максимальная температура приходилась на четную дату

3. Измените программу из задания 2 так, чтобы она выводила количество дней в апреле, когда максимальная температура приходилась на четную дату

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.