Известны данные о количестве осадков за одну декаду месяца. Верно ли, что без осадков...

Question

Известны данные о количестве осадков за одну декаду месяца. Верно ли, что без осадков было пять дней?
Помогите пожалуйста решить на Free Pascal

Comments

А можно сделать не с массивом а с циклом?

Answer 1

Rain[i] - массив с количеством осадков в i-тый день, 0 - если их не было

var rain: array [1..10] of integer;
i, k:integer;
begin
k := 0;
for i := 1 to 10 do
if rain[i] = 0 then k := k+1;
if k = 5 then writeln('Да, без осадков было ровно 5 дней');
end.