88

В медосмотре участвовало 10 человек

gipsik 23 февраля 2023

В медосмотре участвовало 10 человек. Подсчитать число осматриваемых, имеющихтемпературу

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

36

Prorgam zadacha; Const n=10; Var a: array [1… 10] of real; i,s: integer; BeginS: =0; For i: =1 to n do beginReadln (a[i]); If (a[i]>36,6) then s: =s+1; End; Writeln (s); End.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...