Программирование двумерные массивы

1.4. В двумерном массиве A(N,M) найдите количество четных элементов построчно и запишите полученные значения в одномерный массив.

По результатам анализа задания можно составить блок-схему алгоритма, необходимого для написания программы в Turbo Pascal 7.0.[pic 1]

[pic 2]

Проведем детализацию блок-схемы. На блок-схеме не отражен ввод и вывод массива. Составим отдельные блок-схемы.[pic 3][pic 4]

Ввод массива:[pic 5]

Вывод массива:

[pic 6]

З.Разработка программы и ее описание

program Pr_1_4;                                {Заголовок программы}

uses crt;                                                {Модуль, очищающий экран}

var

   a: array [1..20,1..20] of integer;

   m, n, i, j, k: integer;

   b: array [1..20] of integer;

begin

clrscr;

   write ('Количество строк массива m = ');

   readln (m);

   write ('Количество столбцов массива n = ');

   readln (n);

   randomize;

   for i:=1 to m do                                {Перебор строк массива}

      begin

         for j:= 1 to n do                                {Перебор столбцов массива}

            begin

               a[i,j]:=random(20)-5;

               write (a[i,j], '  ');                        {Вывод элемента массива}

            end;

         writeln;

      end;

{Формирование одномерного массива, состоящего из количества четных элементов в строках массива}

    writeln ('Одномерный массив из количества четных элементов: ');

    for i:= 1 to m do                                {Перебор строк массива}

    begin

    k:=0;                                 {Первоначальное значение количества}

    B[i]:=0;

      for j:=1 to n do                                {Перебор столбцов массива}

         if ((a[i,j] mod 2 =0) and (a[i,j]<>0))

            then

               k:=k+1;

        B[i]:=k;                                        {Формирование массива}

        write(b[i]:4,' ');                                {Вывод одномерного массива}

     end;          

end.

2.4. Дана целочисленная матрица A(N,N). Найдите количество неотрицательных элементов матрицы, расположенных под главной диагональю.

program Pr_2_4;                                 {Заголовок программы}

uses crt;                                                {Модуль, очищающий экран}

var

   a: array [1..20,1..20] of integer;

   m, n, i, j, k: integer;

   b: array [1..20] of integer;

begin

clrscr;

   write ('Количество строк массива m = ');

   readln (m);

   write ('Количество столбцов массива n = ');

   readln (n);

   k:=0;                                 {Первоначальное значение количества}

   randomize;

   for i:=1 to m do                                {Перебор строк массива}