Массив содержит сведения о количестве осадков выпавших за каждый из 12 месяцев. Найти: а) общее количество осадков за год; б) количество засушливых месяцев (<30 мм).

Получите заспишитесь)

const n=12;

var i, k, l, o:integer; a:array [1 ... 100] of integer;

begin

writeln ('Введите кол-во осадков: ') ;

for i:=1 to n do begin

write ('За ', i,'-й месяц: ') ;

readln (a[i]) ; l:=l+a[i];

if a[i]<30 then inc (o) ;

end;

write ('О бщее количество осадков за год : ', l,' К оличество засушливых месяцев : ', o) ;

end.