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

RanDomAizer11 RanDomAizer11    2   19.03.2019 07:50    0

Ответы
вика45890 вика45890  26.05.2020 02:52

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика