Pascal

[STanja]

Помогите пожалуйста с задачей.
В заданной матрице А(mxn) заменить все положительные элементы нулями, если количество отрицательных элементов больше, чем количество положительных элементов.

[baster128]

Пройди по матрице, посчитай положительные и отрицательные, сравни. Потом (если минусовых больше) пройди еще раз и замени положительные нулями. Реализация простая - два цикла

[RUSt88]

program p;

const
    N = 5;
    M = 7;

var
    a: array[0..N, 0..M] of integer;
    i, j, k, h: integer;

begin
    writeln("Enter matrix elements");
    randomize;
    k := 0;
    h := 0;
    for i := 0 to N do begin
        for j := 0 to M do begin
            a[i, j] := random(18);
            write(a[i, j], #32);
            if ( a[i, j] < 0 ) then
                inc(k)
            else
                inc(h);

        end;
        writeln;
    end;
    if ( k > h ) then begin
        writeln("New matrix");
        for i := 0 to N do begin
            for j := 0 to M do begin
                if ( a[i, j] > 0 ) then
                    a[i, j] := 0;
                    write(a[i, j], #32);
            end;
            writeln;
        end;
    end;
    Readln;
end;