Дан массив из 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.