Как запустить установленную программу? (кратко)

Question

Информатика: Как запустить установленную программу? (кратко)

GhostUltimate · Accepted Answer

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

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,199);
a.Println(4); Writeln(4*a.ColCount*'-');
Write('Искомые числа: ');
var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99))
.Where(x->(x div 10+x mod 10).IsEven);
s.Println;
Writeln('Количество чисел равно ',s.Count)
end.

Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив [4,7] ***
65 112 78 133 52 108 39
73 162 64 31 55 156 107
14 105 88 55 16 146 143
19 97 33 138 16 37 198

Искомые числа: 39 73 64 31 55 88 55 19 97 33 37
Количество чисел равно 11

MOGZ ответил