Найти суммы элементов тех строк матрицы, на главной диагонали которой стоят отрицательные элементы

@halk · Регистрация: 12.01.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста зарешать

Дана квадратная матрица А порядка n. Найдите суммы элементов тех строк матрицы, на главной диагонали которой стоят отрицательные элементы.

Комментарий модератора

Один вопрос - одна тема

@ntrx · 12.01.2013, 18:05

Pascal

program sfdd;
const n = 5;
var A : array[1..n,1..n] of integer;
    sum : longint;
    i,j,k : byte;
begin
    randomize();
    for i:=1 to n do begin
        for j:=1 to n do begin
            a[i,j] := random(20)-16;
            write(a[i,j]:4,' ');
            end;
        writeln;
    end;
    
    for i:=1 to n do begin
        for j:=1 to n do begin
            if (i=j) then begin
                if (A[i,j]<0) then begin
                  sum := 0;
                    for k:=1 to n do
                        sum := sum + A[i,k];
                    writeln('Sum of ',i,' line is: ', sum);
                end;
            end;
        end;
    end;
    readln;
end.

	12.01.2013, 18:05

Опции темы

Найти суммы элементов тех строк матрицы, на главной диагонали которой стоят отрицательные элементы

Решение