Вопрос по информатике:
Дан массив целых чисел из 18 элементов,заполненный случайным образом числами из промежутка [-40;80].Вывести на экран все элементы,которые состоят из одинаковых цифр.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.08.2017 19:13
- Информатика
- remove_red_eye 15045
- thumb_up 35
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,-40,80); a.Println;
a.Where(t->(t mod 10)=(t div 10)).Println
end.
Пример
34 -22 11 63 -9 43 34 -32 -34 -32 28 17 50 37 80 49 2 29
-22 11
- 13.08.2017 12:01
- thumb_up 5
a:array[1..18] of integer;
i:integer;
begin
Randomize();
Write('Исходный массив: ');
For i:= 1 to 18 do
begin
a[i]:=-40 + random(121);
Write(a[i], ' ');
end;
Writeln();
Write('Элементы, состоящие из одинаковых цифр: ');
For i:= 1 to 18 do
if (a[i] mod 10 = a[i] div 10 ) then
Write(a[i], ' ');
end.
Пример:
Исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20
Элементы, состоящие из одинаковых цифр: 77 -22 22
- 14.08.2017 02:03
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.