Найти количество положительных и количество отрицательных элементов

var
q: array[1..10,1..10] of integer;
i,j,k:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
Q[i,j]:=random(100)-50;
write(q[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if Q[i,j]>0 then 
inc(k);
writeln('Kol-vo pol-ih el-ov: ', k);
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if Q[i,j]<0 then 
 
inc(k);
writeln('Kol-vo otr-ih el-ov: ', k);
 
end.

var
q: array[1..10,1..10] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
Q[i,j]:=random(100)-50;
write(q[i,j]:4);
end;
writeln;
end;
S:=0;
for i:=3 to 3 do
for j:=1 to 10 do
 
if j mod 2=0 then
 
S:=S+Q[i,j];
writeln('Kol-vo summi el-ov: ', s);
end.

k1:=0; k2:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if Q[i,j]>0 then 
inc(k1) else 
if Q[i,j]<0 then 
 inc(k2);

S:=0;
for j:=1 to 10 do
 if j mod 2=0 then  S:=S+Q[3,j];

const m = 10; //0 размер массива
var q: array [1..m, 1..m] of integer; //0 массив
    i, j: integer; //0 счётчики по строкам и столбцам
    kp, ko: integer; //1 количества положительных и отрицательных элементов
    sume3: integer; //2 сумма элементов, стоящих в четных позициях 3 строки
    ming, minp: integer; //3 номера строк min-элементов главной и побочной диагоналей
    tmp: integer; //4, 5 промежуточная переменная для обмена элементов
    maxp3: integer; //5 индекс max положительного элемента в 3 строке
 
//0 процедура печати массива
procedure prnt;
var i, j: integer; //локальные переменные-счётчики
begin
  for i := 1 to m do //цикл по строкам
    begin
      for j := 1 to m do write(q[i, j]:5); //печать элемента без перевода строки в 5 позиций
      writeln //строку массива напечатали, переход на следующую строку
    end
end;
//0
 
begin
  randomize; //0 инициализация генератора псевдослучайных чисел
 
  //0 заполнение массива
  for i := 1 to m do for j := 1 to m do q[i, j] := random(199) - 99; //генерация элемента, диапазон -99..99
  writeln('Исходный массив псевдослучайных чисел:'); //печать массива
  prnt;                                              //
  //0
 
  write('Для продолжения нажмите <Enter>'); readln; //-
 
  //1 поиск количеств положительных и отрицательных элементов
  kp := 0; //количества пока 0
  ko := 0;
  for i := 1 to m do for j := 1 to m do //пробегаемся по массиву
    begin
      if q[i, j] > 0 then inc(kp); //элемент положительный, kp+1
      if q[i, j] < 0 then inc(ko) //элемент отрицательный, ko+1
    end;
  writeln('Количество положительных элементов: ', kp); //печатаем количества
  writeln('Количество отрицательных элементов: ', ko); //
  //1
 
  write('Для продолжения нажмите <Enter>'); readln; //-
 
  //2 нахождение суммы элементов, стоящих в четных позициях 3 строки
  sume3 := 0; //сумма пока 0
  for j := 1 to m div 2 do sume3 := sume3 + q[3, j * 2];
  //суммируем чётные позиции 3 строки
  //m div 2 - количество чётных позиций, j * 2 - чётные позиции
  writeln('Cумма элементов, стоящих в четных позициях 3 строки: ', sume3);
  //2
 
  write('Для продолжения нажмите <Enter>'); readln; //-
 
  //3 поиск min-элементов главной и побочной диагоналей
  ming := 1; //пока считаем, что оба минимальных элемента в первой строке
  minp := 1; //
  for i := 2 to m do //цикл со второй строки, потому что первую уже учли выше
    begin
      if q[i, i] < q[ming, ming] then ming := i; //если текущий элемент главной диагонали меньше, то пусть он будет ming
      if q[i, m - i + 1] < q[minp, m - minp + 1] then minp := i //аналогично для побочной диагонали
    end;
  writeln('Массив:'); //печать исходного массива
  prnt;               //
  writeln('Минимум главной диагонали:  q[', ming, ', ', ming, '] = ', q[ming, ming]);
  writeln('Минимум побочной диагонали: q[', minp, ', ', m - minp + 1, '] = ', q[minp, m - minp + 1]);
  writeln('Сложение минимума главной диагонали с минимумом побочной диагонали. Результат:'); //печать изменённого массива
  prnt;                                                                                      //
  //3
 
  write('Для продолжения нажмите <Enter>'); readln; //-
 
  //4 упорядочение по неубыванию элементов 9 столбца.
  writeln('Массив:');  //печать неотсортированного массива
  prnt;                //
  for i := 1 to m - 1 do for j := i + 1 to m do if q[i, 9] > q[j, 9] //сортировка
    then begin //если i элемент больше j, меняем их местами
      tmp := q[i, 9];
      q[i, 9] := q[j, 9];
      q[j, 9] := tmp
    end;
  writeln('Упорядочение по неубыванию элементов 9 столбца. Результат:'); //печать отсортированного массива
  prnt;                                                                  //
  //4
 
  write('Для продолжения нажмите <Enter>'); readln; //-
 
  //5 поиск max-положительного элемента 3 строки и обмен его с последним элементом 3 строки
  maxp3 := 0; //умышленно индекс за границей массива, вдруг в 3 строке нет положительных
  writeln('Массив:');  //печать массива
  prnt;                //
  for j := 1 to m do
    if ((maxp3 = 0) and (q[3, j] > 0)) or ((maxp3 > 0) and (q[3, j] > q[3, maxp3]))
      then maxp3 := j;
  if maxp3 = 0
    then writeln('В 3 строке нет положительных элементов, максимум найти невозможно.')
    else begin
      writeln('Максимальный положительный элемент 3 строки: q[3, ', maxp3, '] = ', q[3, maxp3]);
      if maxp3 = m
        then writeln('Максимальный элемент в позиции ', m, ', обмен не требуется.')
        else begin
          tmp := q[3, maxp3];
          q[3, maxp3] := q[3, m];
          q[3, m] := tmp;
          writeln('Обмен максимального и последнего элемента 3 строки. Результат:');
          prnt
        end
    end;
  //5
  
  write('Для выхода из программы нажмите <Enter>'); readln //-
 
end.