Question

Дан массив содержащий натуральные элементы. Посчитать кол-во двузначных элементов массива.

Answer 1

program z;
var a: array [1..10] of integer;
N,i,k: integer;

begin
N := 10;
k=0; 
for i:=1 to N do 
readln(a[i]); 
for i:=1 to N do 
if a[i]>9 and a[i]<100
then k:=k+1;
writeln(k);
end.