Question

Есть ли в массиве трёхзначные числа заканчивающееся на 9?

Answer 1

Program NoName;

Var i,n,k: integer;

a:array[1..9999] of integer;

Begin

k:=0;

Write("Количество вводимых цифр = ");

Read (n);

For i:=100 to n do

Begin

Read(a[i]);

If (a[i] > 100)and(a[i] mod 9 = 0)and(a[i] < 1000)then

k:=k+1;

End;

If k > 0 then

Write ("Да")

Else

Write ("Нет")

End.