Найти количество отрицательных элементов в каждой строке двумерного массива, состоящего из 7 строк и 5 столбцов. - Turbo Pascal

Формулировка задачи:

Найти количество отрицательных элементов в каждой строке двумерного массива, состоящего из 7 строк и 5 столбцов....решение в паскале и блок схема....)))очень нужно...заранее спасибо))))))))

срочно нужно...завтра зачет!!((((((((помогите пожалуйста((((

Решение задачи: «Найти количество отрицательных элементов в каждой строке двумерного массива, состоящего из 7 строк и 5 столбцов.»

Листинг программы

uses crt;
const m=7;
      n=5;
var a:array[1..m,1..n] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50)-25;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Количество отрицательных в строках:');
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]<0 then k:=k+1;
  writeln('Строка ',i,'=',k);
 end;
readln
end.

Объяснение кода листинга программы

В данном коде используется Turbo Pascal. Переменные:

m и n - это константы, определяющие размерность массива (количество строк и столбцов соответственно).
a - двумерный массив целых чисел.
i и j - переменные, используемые в цикле для перебора элементов массива.
k - переменная, используемая для подсчета количества отрицательных элементов в текущей строке массива. Цель кода:
Вывести на экран массив целых чисел.
Вывести на экран количество отрицательных элементов в каждой строке массива. Алгоритм работы кода:
1. Инициализация переменной k нулем.
2. Заполнение массива случайными числами от -25 до 50.
3. Вывод на экран заполненного массива.
4. Вывод на экран количества отрицательных элементов в каждой строке массива. Пример вывода: Массив: 1=25 2=25 3=25 4=25 5=25 6=25 7=25 Количество отрицательных в строках: 1=2 2=2 3=2 4=2 5=2 6=2 7=2