Дан массив целых чисел из 18 элементов,заполненный случайным образом числами из промежутка [-40;80].Вывести на экран все элементы,которые состоят из одинаковых цифр.

Реклама

Ответы и объяснения

Эникей
danulpopov
Эникей

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

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

0.0
0 оценок
0 оценок
Оцени!
Оцени!
Лучший Ответ!
danulpopov

Var
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

5.0
1 оценка
1 оценка
Оцени!
Оцени!