Написать программу нахождения суммы первого столбца двумерного массива

1

Ответы и объяснения

2013-03-12T14:56:37+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var
    a: array[1..10, 1..10] of integer;
    i, j, n, m, s: integer;

begin
    read(n, m);
    for i := 1 to n do
        for j := 1 to m do
        begin
            read(a[i, j]);
            if (j = 1) then s := s + a[i, j];
        end;
    writeln(s);
end.