{ Задан двумерный массив А из 8-и строк и 3-х столбцов.                                      }
{ Составить программу, которая подсчитывает общее число неотрицательных элементов в массиве. }
{ Затем организовать формирование нового массива В,                                          }
{ в котором значения элементов исходного массива заменить на противоположные по знаку.       }

const COLUMN = 8; ROW = 3;

var
    i, j     : integer; { Итераторы                        }
    positive : integer; { Кол-во неотрицательных элементов }

    A, B : array [ 1..COLUMN, 1..ROW ] of real; { Массивы }

begin

    positive := 0;

    for i:=1 to COLUMN do
        for j:=1 to ROW do begin

            write('Чему равно A[', i, ',' ,j, '] ?');
            readln( A[i,j] );

            B[i,j] := -A[i,j];
            if A[i,j] >= 0 inc( positive );
    end;

    writeln('В массиве найдено ', positive, ' неотрицательных элементов.');

    writeln('Массив В:');

    for i:=1 to COLUMN do begin
        for j:=1 to ROW do write( B[i,j], '\t' );
        writeln;
    end;

    readln;

end.