В массивах Td B Tn хранятся результаты измерения дневной и ночной температуры за 7…

Var Td,Tn: array[1… 7]of real; i,k: integer; m,z: real; beginfor i: =1 to 7 dobeginwriteln ('Введите дневневную температуру в день',i); readln (Td[i]); m: =m+Td[i]; end; for k: =1 to 7 dobeginwriteln ('Введите ночную температуру в день',k); readln (Tn[i]); m: =m+Tn[i]; end; z: =m/14; writeln ('средняя температура=',z); end.