Написать программу для Паскаль Найдите самую низкую температуру за время наблюдения, если...

Question

Написать программу для Паскаль

Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 15 градусов, выведите да, иначе - нет. Программа получает на входе количество дней, а для каждого дня вводится температура.

Answer 1

Var
  m, k: single;
  i, t: byte;

begin
  m := Single.MaxValue;
  readln(t);
  writeln();
  for i := 1 to t do
  begin
    readln(k);
    m := min(k, m);
  end;
  writeln('Min: ', m, '; ', (m < -15 ? 'Да' : 'Нет'));
end.