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

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.

Var a: array [1..31] of real;

i:integer;

cr: real;

Begin

For i:=1 to 31 do begin

Writeln('введите количество осадков за ',i,' число');

Readln (a[i]);

Cr:=cr+a[i];

end;

Cr:=cr/31;

write('Среднее значение осадков равно ',cr);

For i:=1 to 31 do

 writeln('больше среднего выпало:');

 if a[i]>cr then write(i,' ');

end.