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

var

i, sum, sum2 : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 12] of integer; / / объявляем массив.

Begin

writeln ('Введите количество осадков за каждый месяц в году в мм:'); / / вывод строки на экран.

for i: = 1 to 12 do / / начало цикла.

begin

readln (arr[i]); / / считываем значение температуры.

sum2: = sum2 + arr[i]; / / считаем сумму температур за каждый месяц.

if arr[i] < 30 then / / если осадков меньше 30 мм.

sum : = sum + 1; / / считаем количество элементов.

end;

writeln ('Общее количество осадков за год: ', sum2); / /вывод строки на экран.

writeln ('Количество засушливых месяцев в году: ', sum); / /вывод строки на экран.

End.