Вмедосмотре участвовало 10 человек. подсчитать число осматриваемых , имеющих температуру
285
428
Ответы на вопрос:
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.
Популярно: Информатика
-
аникдим12.11.2021 18:59
-
Дмыч02.12.2021 12:08
-
grasstv05.08.2021 12:03
-
alholod2p00me015.08.2020 22:11
-
Вика2006a17.05.2021 09:24
-
Nataliya4901701.07.2020 22:54
-
nadyarn12.02.2020 00:43
-
KuDiAnA200325.11.2022 07:33
-
Anasteysha400201.12.2022 09:23
-
Masika0811.01.2021 16:16