Question

Помогите пожалуйста! Напишите эту программу ,но только с while.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число минимальное число, оканчивающееся на 6.

Answer 1

var n,k,m,mn: integer;
begin
  write('n = ');  readln(n);
  mn:=30000;
  k:=0;
  while k<n do
  begin
    read(m);
    if (abs(m mod 10) = 6) and (m<mn) then mn:=m;
    k:=k+1;
  end;
  writeln(mn);
end.

n = 5
21 -26 18 -16 35
-26