Задание 2. В массиве хранится информация о количестве осадков (в мм), выпадающих ежедневно в октябре (случайные числа от 0 до 10). Составьте программу, которая вводит эти данные и вычисляет их количество.

Октябрь содержит 31 день, поэтому массив имеет 31 элемент. Под «вычисляет их количество» понимаем количество дней, когда осадки выпали, то есть количество элементов, больших нуля. Нулевые значения не учитываем.

Программа на Pascal:

program RainyDays;
var
  rain: array[1..31] of integer;
  i, count: integer;
begin
  count := 0;
  writeln('Введите количество осадков за каждый день октября (мм):');
  for i := 1 to 31 do
  begin
    readln(rain[i]);
    if rain[i] > 0 then
      count := count + 1;
  end;
  writeln('Дней с осадками: ', count);
end.

Цикл вводит осадки за каждый день и увеличивает счётчик только при положительном значении.