Question

Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. Паскаль.

Answer 1

Var
  a:array[1..50] of integer;
  i,c:integer;
Begin
  for i:=1 to 50 do   
  Begin
     a[i]:=random(300)-150;
     write(a[i],' ');
     if (a[i]>9) and (a[i]<100) then c:=c+1;
  End;
  Writeln;
  write('Количество всех элементов этого массива, которые являются положительными двузначными числами равняется ',c);
End.

Answer 2

Теперь все ясно, спасибо большое!