Question

Ввести с клавиатуры показатель температуры ( среднесуточной ) за 15 дней определить температуру самого холодного дня

Answer 1

// 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..

Answer 2

// PascalABC.NET
Var
T,MinT:real;
i:integer;
begin
MinT:=1000; // Вводим абсурдное значение что бы позже MinT изменилось на 1 значение T
Writeln('Введите t за 15 дней через пробел.');
For i:=1 to 15 do begin
read(T);
if T < MinT then
MinT:=T;
end;
Writeln('Минимальная t: ', MinT);
end.