Помогите решить задачи по информатике.
1.В процессе лечения температура пациента ежедневно записывалась в таблицу T[1:N]. Найдите количество дней,когда отклонение от нормальной температуры(36,6 C) было больше 0,5 C.

1

Ответы и объяснения

2013-11-15T20:45:16+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Program Task;
const N=10;
var T:array [1..N] of real; i,k:integer;
begin
for i:=1 to N do readln(T[i]);
k:=0;
for i:=1 to N do if (T[i]>37,1) or (T[i]<36,1) then k:=k + 1;
write('Количество дней, когда отклонение от нормальной температуры было больше 0,5°С равно', k);
end.