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

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

Question

Информатика

Аникей

1 марта, 02:59

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

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

+3

Ответы (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.