заполнить массив случайными...

заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1..30] , кол-во чисел с одинаковымицифрами

 

var a:array[1..100]of integer;
i,e:integer;
begin
for i:=1 to 100 do a:=random(90)+10; {при значениях 0-9 смысл проверки теряется}
for i:=1 to 100 do write(a,' ');
 
for i:=1 to 100 do if a mod 10=a div 10 then inc(e);
writeln;
writeln(e);
end.