Контрольное задание №13-3 / 13-3 / zadanie_3

program Zadanie_3;
var
i: byte;
Tmin,Tmax,Tsr: real;
T: array [1..6] of real;
begin
for i:=1 to 6 do
begin
write ('‚ўҐ¤ЁвҐ ',i,' ⥬ЇҐа вгаг Ў®«м­®Ј®: ');
read (T[i]);
if T[i]>Tmax then Tmax:=T[i] else Tmin:=T[i];
if Tmin=0 then Tmin:=T[1];
Tsr:=T[i]+Tsr;
end;
Tsr:=Tsr/6;
writeln ('Њ ЄбЁ¬ «м­®Ґ §­ зҐ­ЁҐ ',Tmax:4:2);
writeln ('ЊЁ­Ё¬ «м­®Ґ §­ зҐ­ЁҐ ',Tmin:4:2);
writeln ('‘।­ҐҐ §­ зҐ­ЁҐ ',Tsr:4:2);
end.