Question

Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна сумме последних двух. Решение в Паскале

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
  a.Where(t->((t div 1000)+(t div 100 mod 10))=((t mod 100 div 10)+(t mod 10))).DefaultIfEmpty.Println;
end.

Пример(1):
Введите размер массива-> 5
Введите элементы массива-> 1423 4786 8154 1322 8896
1423 8154 1322

Пример(2):
Введите размер массива-> 5
Введите элементы массива-> 1564 1546 1534 3548 1354
0