// PascalABC.NETVarT,MinT:real;i:integer;beginMinT:=1000; // Вводим абсурдное значение что бы позже MinT изменилось на 1 значение TWriteln('Введите t за 15 дней через пробел.');For i:=1 to 15 do beginread(T);if T < MinT thenMinT:=T;end;Writeln('Минимальная t: ', MinT);end..
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
