Подсчитать количество отрицательных элементов двумерного массива в котором 3 строки и 4 столбца , заполнить надо, заранее !

Var a: array[1..3, 1..4] of integer;     n, i, j: integer; begin     n: =0;     for i: =1 to 3 do     for j: =1 to 4 do     read(a[i, j]);     for i: =1 to 3 do     for j: =1 to 4 do     if a[i, j]< 0 then n: =n+1;     writeln('количество', n);     for i: =1 to 3 do     begin      for j: =1 to 4 do     write(a[i, j]: 4);     writeln;     end;   end.

Var a: array[1..3] of array [1..4] of integer; i,j,k: integer; begin for i: =1 to 3 do     for j: =1 to 4 do begin      read(a[i,j]);       if a[i,j]< 0 then k+=1;       end; writeln(k); end.

Const n=10; var    k,l,m,i,j: integer;   var a: array[1..n] of integer; begin   k: =0; m: =0; j: =0; l: =0;   for i: =1 to n do begin     a[i]: =random(10);     write (a[i]: 3);     if (i> 1) and (a[i]> =a[i-1])        then begin k: =k+1; j: =i; end       else          if (k> 0) and (k> l)            then begin l: =k; m: =j; k: =0 end           else k: =0;   end;   if (k> 0) and (k> l)      then begin l: =k; m: =n end;     writeln;   writeln;   for i: =m-l to m do      write (a[i]: 3);   l: =l+1;   writeln;   writeln ('длина = ',l) end. :   9   2   5   0   8   5   7   7   3   7   5   7   7 длина = 3 * рандомный ввод массива можно заменить обычным с клавиатуры

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! const   n=34; begin   // 1   var r: =arrrandom(n,-8,8); r.println;   // 2   var b: =r.slice(trunc(0.75*n)-1,3);   writeln('ср.гармоническое= ',b.count/b.aggregate(0.0,(x,y)-> x+1.0/y));   // 3   var m: =r.batch(n div 3).toarray[1].where(x-> x.iseven).minby(x-> abs(x));   writeln('минимальный по модулю= ',m);   // 4   var r2: =r.select((x,i)-> (x,(n div 2).toarray;   var r21: =r2[0].where(x-> x[0]< 0).orderby(x-> sqr(x[0]));   var ind: =r21+r2[1].where(x-> x[0]< 0).orderby(x-> sqr(;   var ind1: =ind.unziptuple;   var aval: =ind1[0].toarray;   var aind: =ind1[1].sorted.toarray;   for var i: =0 to aval.count-1 do r[aind[i]]: =aval[i];   r.println end. пример 8 -3 2 -2 6 6 7 6 -7 -5 -4 6 2 2 1 1 -6 1 -1 -5 8 4 1 7 1 1 2 -8 -8 1 -7 1 8 -6 ср.гармоническое= 7.07368421052631 минимальный по модулю= 2 8 -2 2 -3 6 6 7 6 -4 -5 -6 6 2 2 1 1 -7 1 -1 -5 8 4 1 7 1 1 2 -6 -7 1 -8 1 8 -8