напишите программу которая в последоательности натуральных чисел оределяет минимальное число оканчивающихся на 6. программа получает на вход количество чисел в последовательность, а затем сами числа. в последовательность всегда имеется число, оканчивающтхся на 6. количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число — минимальное, оканчивающтхся на 6. Входные данные 3, 26, 16, 36. Выходные данные 16. Срочно!Помогите!

Вопрос школьника по предмету Информатика

напишите программу которая в последоательности натуральных чисел оределяет минимальное число оканчивающихся на 6. программа получает на вход количество чисел в последовательность, а затем сами числа. в последовательность всегда имеется число, оканчивающтхся на 6. количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число — минимальное, оканчивающтхся на 6. Входные данные 3, 26, 16, 36. Выходные данные 16. Срочно!Помогите!

Ответ учителя по предмету Информатика

Var

   A,Min,N,i:integer;

Begin

Write(‘N = ‘);Read(N);

i:=1;

While Min mod 10 <> 6 do

   Begin

   Read(Min);

   i:=i+1

   End;

For i:= i to N do

    Begin

    Read(A);

    if A < Min then Min:=A;

    End;

WriteLn(‘Min = ‘,Min);

End.