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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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