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

Question

Информатика

Маркси

5 апреля, 04:41

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

+1

Ответы (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.