Question

Дан массив осадков за каждый день июля (31 день) .Определить в какую десятидневку выпало наибольшее количество осадков .

Answer 1

Const N = 4; {количество девятидневок в 31 числе}
var a: array [1..31]  of integer;{заранеее заполненный}   
 i, max, d : integer;
begin 
max:=0;
for i:= 1 to 31 do 
if a[i] > max then {нахождение максимального числа и запонимание его девятидневки}   
begin     
max := a[i];     
d:= i mod N;   
end; 
writeln(d){вывод девятидневки}
end.