Дан массив из 10 чисел. Напишите программу для нахождения количества двузначных чисел.

program z1;

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

i,k:integer;

begin

k:=0;

write('Массив: ');

for i:= 1 to 10 do

begin  

a[i]:=random(333);  

write(a[i],'  ');

if (a[i]>9) and (a[i]<100) then k:=k+1

end;

writeln;

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

end.

Объяснение:

Двузначные числа от 10 до 99 (отрицательные не учитываем).