Question

Помогите!!!!
посчитать среди 100 вводимых с клавиатуры чисел количество тех чисел ,которые являютс двухзнаяными и ввести это количество на экран

Answer 1

program raf105;

var a:array[1..100] of integer;

i,b:integer;

begin

i:=1;

b:=1;

a[1]:=1;

writeln('Вводите 100 чисел по очереди');

for i:=1 to 100 do

begin

 readln(a[i]);

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

   then b:= b+1;

end;

writeln('Количество двузначных чисел: ',b);

end.

Программа написана на языке PascalABC