Задан двумерный массив с из 4-х строк и 4-х столбцов (квадратная матрица). составить программу подсчёта суммы всех отрицательных элементов и суммы элементов по главной диагонали. : 3

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(4,4,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var sn: =a.elementsbyrow.where(t-> t< 0).sum;   writeln('сумма отрицательных элементов равна ',sn);   var sd: =0;   for var i: =0 to a.rowcount-1 do sd+=a[i,i];   writeln('сумма элементов на главной диагонали равна ',sd); end. пример *** исходный массив ***   55 -36  70  19   79  14    5  -5   79  -9 -62  20   -71  69 -34  66 сумма отрицательных элементов равна -217 сумма элементов на главной диагонали равна 73

If(i=j) { a[i][j]+=a[i][j] } а вообще в инете вбей,cyberforum, найдешь

можно назвать - собака 

или 

агент @ мail.ru 

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.