Составить программу на языке Паскаль

Известна температура больного за 20 дней пребывания в больнице. Можно ли еговыписывать, если для этого требуется, чтобы не менее половины всех дней, когда у негобыла температура ниже 37°, приходилось на вторую половину его пребывания в больнице?

Question

Информатика

Вара

17 марта, 00:02

Составить программу на языке Паскаль

Известна температура больного за 20 дней пребывания в больнице. Можно ли еговыписывать, если для этого требуется, чтобы не менее половины всех дней, когда у негобыла температура ниже 37°, приходилось на вторую половину его пребывания в больнице?

+5

Ответы (1)

Знаешь ответ?

Дашура · Answer 1

Var t:array[1 ... 20] of real;

w, i:integer;

begin

w:=0;

for i:=1 to 20 do

readln (t[i]);

for i:=11 to 20 do

if t[i]<37 then w:=w+1;

if w=10 then writeln ('Можно')

else writeln ('Нельзя');

end.