Question

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

Answer 1

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

i,e:integer;

begin

for i:=1 to 100 do a[i]:=random(90)+10; {при значениях 0-9 смысл проверки теряется}

for i:=1 to 100 do write(a[i],' ');

 

for i:=1 to 100 do if a[i] mod 10=a[i] div 10 then inc(e);

writeln;

writeln(e);

end.