Question

дан целочисленный массив из 30 элементов элементы массива могут принимать значения от 0 до 1000 найти колво элементов массива десятичная запись которых содержит ровно 2цифры причем хотя бы одна их этих цифр 9ых

Answer 1

var
a: array[1..30] of integer;
i, k: integer;
begin 
  k:=0; 
  //считываем массив
  for i:=1 to 30 do
     readln(a[i]); 
  for i:=1 to 30 do 
  //проверяем, если элемент > 9 и < 100, то он двузначный 
  //если остаток от деления на 10 = 9 
  //или результат деления на 10 = 9 
  //то в числе содержится цифра 9    
  if (a[i] > 9) and (a[i] <100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then
    inc(k); //увеличиваем k с инкрементом 1 
  writeln(k);
end.