Question

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

Answer 1

// 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

Answer 2

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