С клавиатуры вводится 5 целых чисел . Вывести ** экран только однозначные числа

Question

С клавиатуры вводится 5 целых чисел . Вывести на экран только однозначные числа

Answer 1

var

  a: array [1..5] of integer;  //Массив из 5 целочисленных элементов

  i: integer;

 

begin

  for i:= 1 to 5 do 

  begin

    writeln('Введите целое число');

    readln(a[i]);

  end;

  write('Однозначные числа:  ');

  for i:= 1 to 5 do

    if a[i] div 10 = 0 then write(a[i], '  ');

end.

Answer 2

var

  a: array [1..5] of integer;  //Массив из 5 целочисленных элементов

  i: integer;

 

begin

  for i:= 1 to 5 do 

  begin

    writeln('Введите целое число');

    readln(a[i]);

  end;

  write('Однозначные числа:  ');

  for i:= 1 to 5 do

    if a[i] div 10 = 0 then write(a[i], '  ');

end.                                                                                       пожалуйсто