Сумма елементов матрицы

@gembird · Регистрация: 02.03.2013

Определить сумму елементов ряда матрицы в котором есть хотя бы одно отрицательное число

@Ev[G]eN · 23.03.2013, 20:51

Pascal

const
    matrixSize = 5;
var
    matrix: array [1..matrixSize, 1..matrixSize] of integer;
    sumOfRow: integer;
    counter, i, j: byte;
begin
    randomize;
    writeln('Matrix: ');
    for i := 1 to matrixSize do
    begin
        counter := 0;
        sumOfRow := 0;
        for j := 1 to matrixSize do
        begin
            matrix[i, j] := random(25) - 5;
            if matrix[i, j] < 0 then
                counter := counter + 1;
            write(matrix[i, j]:4);
        end;
        if counter <> 0 then
        begin
            for j := 1 to matrixSize do
                sumOfRow := sumOfRow + matrix[i, j];
            write(sumOfRow:10);
        end;
        writeln;
    end;
end.

@gembird 0 / 0 / 1 Регистрация: 02.03.2013 Сообщений: 8
		1
	Сумма елементов матрицы 21.03.2013, 00:13. Просмотров 915. Ответов 1 Метки нет (Все метки) Определить сумму елементов ряда матрицы в котором есть хотя бы одно отрицательное число 0

Опции темы

Сумма елементов матрицы

Решение