Pascal abc составить программу через array и for Подсчитайте количество морозных дней (когда температура ниже -20 град.).
Pascal abc
составить программу
через array и for
Подсчитайте количество морозных дней (когда температура ниже -20 град.).
Гость
Ответ(ы) на вопрос:
ГостьVAR
i, kol: Integer;
a: Array [1..20] of Integer;
BEGIN
For i := 1 to 20 do Read(a[i]);
For i := 1 to 20 do
If (a[i] < -20) then Inc(kol);
Write(kol);
END.
Не нашли ответ?
Похожие вопросы