Задание:
Заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1… 30], кол-во чисел с одинаковымицифрами
Решение:
var a: array[1… 100]of integer; i,e: integer; beginfor 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.
Знаете другой ответ?