Вмедосмотре участвовало 10 человек. подсчитать число - вопрос №38504110 от ВасилисаНебога 08.04.2021 06:47

Question

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

ВасилисаНебога · 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.