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

Решение на Pascal:

var s:array[1..30] of real;

sum:real; i:integer;

begin

sum:=0;

for i:=1 to 30 do begin

writeln('введите количество осадков ',i,'-го дня');

readln(s[i]);

end;

for i:=1 to 28 do begin

if i mod 2=0 then

sum:=sum+s[i];

end;

writeln('Общее количество осадков за все чётные дни: ', sum);

end.