Pascal abcсоставить программу через array и for Подсчитайте количество морозных дней…

Question

73

Pascal abcсоставить программу через array и for Подсчитайте количество морозных дней (когда температура ниже -20 град.).

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

devil666 · Accepted Answer

99

devil666

18 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: