Для чого призначено вікно форма

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! procedure foo(a: array[,] of integer; var kn: integer; var so: real); begin   var s: =a.elementsbyrow; // последовательность не хранится   kn: =s.where(t-> t< 0).count;   so: =s.where(t-> t.isodd).sum end; begin   var z: =matrrandominteger(4,3,-50,50); z.println(4);   var k: integer;   var s: real;   foo(z,k,s);   writeln('количество отрицательных: ',k);   writeln('сумма нечетных по значению: ',s) end. пример   -40  15 -10   -13  37 -13   32 -39  46   -35    0 -43 количество отрицательных: 7 сумма нечетных по значению: -91 замечание: во избежании разнотолков указывайте, что понимать под нечетным элементом: нечетный по значению, с нечетным индексом (тогда  еще с какого значения начинаются индексы) или нечетный по порядку.