В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки

@Flash56rus · Регистрация: 26.11.2015

В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки.

@JokeR.BY · 26.11.2015, 14:32

Pascal

const
    n = 5;
    m = 6;
var
    a: Array[1..n, 1..m] Of Integer;
    i, j, jMin: Byte;
    sumNeg: Integer;
begin
    Randomize(); sumNeg := 0;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:6);
            if (a[i, j] < 0)
            then
                Inc(sumNeg, a[i, j]); //sumNeg := sumNeg + a[i, j];
        end;
        WriteLn;
    end;
    jMin := 1;
    for j := 1 to m do
        if (a[2, j] < a[2, jMin])
        then
            jMin := j;
    a[2, jMin] := sumNeg;
    for i := 1 to n do
    begin
        WriteLn;
        for j := 1 to m do
            Write(a[i, j]:6);
    end;
end.

@Flash56rus 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 12
		1
	В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки 26.11.2015, 13:35. Показов 1279. Ответов 1 Метки нет (Все метки) В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки. 0

Опции темы

В массиве A[5,6] сумму отрицательных элементов поставить на место максимального элемента 2-ой строки

Решение