Question

На ввод подается N неотрицательных целых чисел. Программа находит количество чисел, оканчивающихся на 6 и минимальное число, кратное 2. Вывести "нет", если чисел, подходящих к условиям нет. По абсолютной величине числа менее 30000.

Answer 1

program krat2_kolokon6;

uses crt;

var

i,min,kol,n,x:integer;

begin

min:=30000;

kol:=0;

read(n);

for i:=1 to n do

begin

read(x);

if x mod 10 =6 then kol:=kol+1;

if (x<min) and(x mod 2=0) then min:=x;

end;

writeln;

if (min=30000)and(kol=0) then

write('Нет')

else

begin

writeln('Минимальный четный элемент=',min);

writeln('Количество чисел, оканчивающихся на 6=',kol);

end;

readln;

end.