Question

Напишите программу, которая в последовательности натуральных чисел:
А) Определяет минимальное число, оканчивающее на 8
Б) Считает количество отрицательных чисел
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности все где имеется число, оканчивающееся на 8, и хотя бы один отрицательный элемент. Количество чисел не превышает 100. Введенные числа не превышают 10000.
Программа должна вывести два числа- минимальное число, оканчивающееся на 8, и количество отрицательных чисел. Ребят помогите пожалуйста!! Ничего не понимаю в информатике, если не сдам до завтрашнего утра будет 2!!!

Answer 1

Ответ:

var

   n, a, min, i, count: integer;

begin

   count := 0;

   min := 10000;

   readln(n);

   for i := 1 to n do

       begin

       read(a);

       if ( abs(a mod 10) = 8 ) and ( a < min ) then

           min := a;

       if a < 0 then

           count := count + 1;

       end;

   write(min, ' ', count);

end.