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

Question

Информатика

Ярославка

19 августа, 20:23

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

+2

Ответы (1)

Знаете ответ на вопрос?

Лонгин · 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.