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

Question

Информатика

Ангела

17 мая, 11:33

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

+4

Ответы (1)

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

Филипп · 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.