Сколько в каждом столбце матрицы отрицательных элементов

const
  N = 10; //размер массива
 
type
  MyArr = array [1..N] of real;
 
function F(a: MyArr): real;
var
  i: integer;
  min,max: real;
begin
  min := a[1];
  max := max;
  for i := 2 to N do
    if a[i] > max then
      max := a[i]
    else
      if a[i] < min then
        min := a[i];
  F := min - max
end;
...
var
  a,b: MyArr;
...

const
  N = 3; // количество строк 
  M = 4; // количество столбцов
...
  for j := 1 to M do
  begin
    c := 0;
    for i := 1 to N do
      if a[i,j] < 0 then
        Inc(c);
    WriteLn('В ', j, 'столбце их: ', c)
  end;
...

uses
  Crt;
const
  N = 3;
  M = 7;
var
  i,j: integer;
  a: array [1..N, 1..M] of integer;
begin
  ClrScr;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := M * (N - i + 1) - j + 1;
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
end.

uses
  Crt;
const
  N = 3;
  M = 7;
var
  i,j: integer;
  a: array [1..N, 1..M] of integer;
begin
  ClrScr;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if odd(i) then
        a[i,j] := M * (N - i + 1) - j + 1
      else
        a[i,j] := M * (N - i + 1) - M + j;
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
end.

uses
  Crt;
 
const
  N = 3;
 
type
  MyArr = array [1..N, 1..N] of integer;
{процедура ввода}
procedure Writing(var a: MyArr);
var
  i,j: integer;
begin
  Randomize;
  for i := 1 to N do
    for j := 1 to N do
      a[i,j] := Random(8)-4
end;
{процедура вывода}
procedure Print(a: MyArr; Caption: string);
var
  i,j: integer;
begin
  WriteLn(Caption);
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(a[i,j]:3, ' ');
    WriteLn
  end
end;
{процедура умножения двух матриц}
procedure Product(const a,b: MyArr; var c: MyArr);
var
  i,j,k: integer;
begin
  for i := 1 to N do
    for j := 1 to N do
    begin
      c[i, j] := 0;
      for k := 1 to N do
        c[i, j] := c[i, j] + a[i, k] * b[k, j];
    end;
end;
{процедура вычитания двух матриц}
procedure Deduct(const a,b: MyArr; var c: MyArr);
var
  i,j: integer;
begin
  for i := 1 to N do
    for j := 1 to N do
      c[i, j] := a[i, j] - b[i, j];
end;
 
var
  a,b,c,d,r: MyArr;
begin
  ClrScr;
  Writing(a);
  Print(a, 'Исодная матрица A');
  Writing(b);
  Print(b, 'Исодная матрица B');
  Product(a, b, c);
  Product(b, a, d);
  Deduct(c, d, r);
  Print(r, 'Результат:');
  ReadLn
end.

uses
  Crt;
  
const
  N = 3; // количество строк
  M = 4; // количество столбцов
 
var
  a: array [1..N, 1..M] of integer;
  i,j,c: integer;
begin
  ClrScr;
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      Write(a[i,j]:2, ' ');
    end;
    WriteLn;
  end;
  for j := 1 to M do
  begin
    c := 0;
    for i := 1 to N do
      if a[i,j] < 0 then
        Inc(c);
    WriteLn('В ', j, ' столбце их: ', c)
  end;
  ReadLn;
end.