Дан массив из 10 элементов. Определить 2 х значные числа и которые заканчиваются на цифре 5.

Var

i:integer;

b: array[1 ... 10] of integer;

begin

for i:=1 to 10 do readln (b[i]) ;

writeln;

writeln ('Двухзначные:') ;

for i:=1 to 10 do

if (b[i]>9) and (b[i]<100)

then write (b[i],' ') ;

writeln;

writeln ('Оканчиваются на 5:') ;

for i:=1 to 10 do

if b[i]mod 10=5

then write (b[i],' ') ;

end.