В процессе лечения температура пациента ежедневно записывалась в таблицу T[1: N].…

Program Task; Const N=10; Var T: Array [1… N] of Real; i, days: Integer; Begin WriteLn ('Введите температуру пациента на каждый из ', N, ' дней через пробел'); For i: =1 To N Do Read (T[i]); For i: =1 To N Do If (T[i] < (36,6 — 0,5) Or (T[i] > (36,6+0,5) Then days: =days+1; WriteLn ('Из ', N, ' дней отклонение от нормы было ', days, ' раз (ы) '); ReadLn; End.