Заданы две матрицы. Для матрицы,которая отвечает заданному условию (написать function) выполнить действие (написать procedure)

[Poma][a]

Тогда еще вопрос.. Если мы выводим числа, то о каком преобразовании идет речь?

[Serge_Bliznykov]

функция, которая возвращает True, если в матрице отрицательных значений больше, чем положительных:

program Matrica;
uses crt;
type arr=array[1..6,1..6] of integer;
     vector=array[1..6] of integer;

function isNegativeMore(X:arr):boolean;
var i,j,cntNeg, cntPos :integer;
begin
  cntNeg := 0;
  cntPos := 0;
  for i:=1 to 6 do
    for j:=1 to 6 do
      if X[i,j]<0 then inc(cntNeg)
      else       
        if X[i,j]>0 then inc(cntPos)
   isNegativeMore :=  cntNeg > cntPos;
end;


....
применять так:
var A,B:arr;
    i,j,s:integer;

if  isNegativeMore(A) then ВыполнитьДействие(A);

if  isNegativeMore(B) then ВыполнитьДействие(B);

есть вопросы?..

[Poma][a]

Мой вариант..

const
    n = 6; m = 6;

type 
    TArr = array [1..6] of Integer;
    TMatrix = array [1..6] of TArr;

procedure InitMatrix(var a : TMatrix);
var
    i, j : Integer;

begin
    for i := 1 to n do
        for j := 1 to m do
            a[i, j] := Random(101)-50
end;

procedure PrintMatrix(const a : TMatrix);
var
    i, j : Integer;

begin
    for i := 1 to n do begin
        for j := 1 to m do
            Write(a[i, j] : 5);
        WriteLn
    end;
    WriteLn
end;


function CountOfNegative(const a : TMatrix) : Integer;
var
    i, j, cnt : Integer;
begin
    cnt := 0;
    for i := 1 to n do
        for j := 1 to m do
            if a[i, j] < 0 then
                Inc(cnt);

    CountOfNegative := cnt
end;

procedure PrintSum(const a : TMatrix);
function Sum(const a : TArr) : Integer;
var
    s, i : Integer;
begin
    s := 0;
    for i := 1 to n do
        Inc(s, a[i]);
    Sum := s
end;

var
    i : Integer;
begin
    for i := 1 to n do
        WriteLn(Sum(a[i]))
end;

var
    a, b : TMatrix;

begin
    Randomize;
    InitMatrix(a); PrintMatrix(a);
    InitMatrix(b); PrintMatrix(b);

    if CountOfNegative(a) > CountOfNegative(b) then begin
        WriteLn('1'); PrintSum(a)
    end
    else if CountOfNegative(a) < CountOfNegative(b) then begin
        WriteLn('2'); PrintSum(b)
    end
    else WriteLn('Кол-во отрицательных чисел одинаково в обеих матрицах.. печалька :(')       
end.

[Serge_Bliznykov]

Сообщение от Poma][a

Мой вариант..

ну вот, теперь у TC два РАЗНЫХ варианта (отличающихся в корне, ибо решают разные задачи), теперь можно выбрать вариант, который устраивает...

[Maxim80]

Спасибо всем! Буду разбираться...