Вопрос по информатике:
заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1..30] , кол-во чисел с одинаковыми цифрами
- 27.01.2018 14:49
- Информатика
- remove_red_eye 2883
- thumb_up 40
Ответы и объяснения 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.
- 28.01.2018 15:32
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.