Question

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

Answer 1

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.