Известны данные о количестве осадков за одну декаду месяца. Верно ли, что без осадков было пять дней? Помогите пожалуйста решить на Free Pascal
Известны данные о количестве осадков за одну декаду месяца. Верно ли, что без осадков было пять дней?
Помогите пожалуйста решить на Free Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы