Pascal. НЕобходимо разобрать перед экзаменом. С клавиатуры вводится последовательность n...

Question

Pascal. НЕобходимо разобрать перед экзаменом.
С клавиатуры вводится последовательность n (n - количество) натуральных чисел. Определить наименьшее тех из них, у которых пред последняя цифра 8.
Мне нужна готовая работающая программа для Паскаля, словесно ответ и так знаю.

Answer 1

Var
    d, min, i, n: integer;

begin
    write('Введите N=');
    readln(n);
   
    write('Введите число ');
    readln(d);
    min := d;
   
    for i := 2 to n do
    begin
        write('Введите следующее число ');
        readln(d);
        if (d mod 100 div 10 = 8) and ((min mod 100 div 10 <> 8) or (min > d)) then
            min := d;
    end;
   
    if (min mod 100 div 10 <> 8) then
        writeln('Не найдено')
    else
        writeln(min);
end.

Comments

Спасибо огромное.