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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.