Количество осадков (в миллиметрах), выпавших за каждый день января, хранится в массиве. Определить количество дней, в

Question

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

Accepted Answer

program prog;

var

r:array[1..31] of real = (1.4,1.3,1.8,1.7,1.8,0.9,1.3,1.4,1.9,1.5,1.9,1.5,2.3,0.3,2.2,1.2,1.3,1.4,1.9,2.1,2.2,2.0,0.8,1.2,1.9,1.4,1.6,2.4,3.0,1.9,2.5);

s:real=0;

i:integer;

begin

for i:=1 to 31 do s:=s+r[i]/31;

writeln('Среднее значение осадков равно ', s:0:3);

writeln('Больше среднего значения осадков выпало в эти числа Января:');

for i:=1 to 31 do if r[i] > s then write(i, ' ');

end.

Ответы1