Заполнить массив случайными числами с промежутка 1-100 и определить…

Question

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

Answer 1

61

dowson

03 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: