Задание:
В медосмотре участвовало 10 человек. Подсчитать число осматриваемых, имеющихтемпературу
Решение:
Prorgam zadacha; Const n=10; Var a: array [1… 10] of real; i,s: integer; BeginS: =0; For i: =1 to n do beginReadln (a[i]); If (a[i]>36,6) then s: =s+1; End; Writeln (s); End.
Знаете другой ответ?