Найдите количество всех:
а)двузначных чисел;
б)двузначных чисел,состоящих из разных цифр;
в)двузначных чисел,сумма цифр которых больше 16;
г)двузначных чисел,произведение цифр которых меньше 2.

1 var a:array [1..10] of integer;
2 i,k,l:integer;
3
4  begin
5      randomize;
6      for i:=1 to 10 do
7          a[i]:=random(50)-10;
8         for i:=1 to 10 do
9           write(a[i], );
10    for i:=1 to 10 do  
11
12    while a[i]>=10 do
13    begin   
14    a[i]:=a[i] mod 10;
15   k:=k+1;   
16    if k=1 then begin   
17     l:=l+1;   
18      k:=0;   
19       end;   
20       end;   
21       writeln;
22      writeln(l);
23          readln;       
24     end.

Если ответ по предмету Алгебра отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.