Девиз какой поисковой системы звучит так "найдется все"?

Я.н.д.е.к.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(5); writeln(5*a.colcount*'-');   writeln('сумма элементов массива: ',           a.rows.selectmany(x-> x).sum) end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив [6,9] ***     39    99    51    44  -28  -85  -52  -98  -56     68    41      3    34    54  -39  -72    15  -80     47  -11    35  -50    65    70    58    52    -1     38    82  -37    93    32    51  -82  -32    98   -72  -12    59    87    44    -4  -14  -56    13     44    72      1    63    48  -77      4  -28    73 сумма элементов массива: 691

Var a: array[1..10] of integer; cnt1, cnt2, i: integer; begin   for i: = 1 to 10 do     read(a[i]);   for i: = 1 to 5 do   if a[i] > 0 then cnt1 : = cnt1 + 1;   for i: = 6 to 10 do   if a[i] > 0 then cnt2 : = cnt2 + 1;   if cnt1 = cnt2 then writeln('количество пол-х элементов одинаково');   if cnt1 > cnt2 then writeln('количество пол-х элементов больше в первой половине');   if cnt1 < cnt2 then  writeln('количество пол-х элементов больше во второй половине'); end. пример: -1 -2 3 5 0 4 6 7 -2 -5 количество пол-х элементов больше во второй половине