Помогите решить в Паскале

Question

Помогите решить в Паскале

Нина Филипенко Ученик (92), закрыт 1 месяц назад

Напишите программу, которая в последовательности п натуральных чисел определяет минимальное число, большее 8.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности обязательно есть число большее 8.
Программа должна вывести одно минимальное число, больше 8.
Программа должна использовать цикл for.

Answer 1

 var 
  i, n, num, min: integer; 
 
begin 
  min := MaxInt; 
  readln(n); 
  for i := 1 to n do 
  begin 
    readln(num); 
    if (num > 8) and (num < min) then 
      min := num 
  end; 
  write(min); 
end.

Answer 2

Да пожалуйста. Классический Паскаль:

 var i, n, m, c: integer; 
begin 
  FillChar(m, SizeOf(m), #255); 
  m:= m shl 1 shr 1; 
  ReadLn(n); 
  for i:= 1 to n do 
  begin 
    ReadLn(c); 
    if (c>8) and (c       m:=c; 
  end; 
  WriteLn(m); 
  ReadLn; 
end.