Найти сумму элементов каждой строки матрицы

@almas_altay · Регистрация: 08.10.2010

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

Дан двумерный массив . Найти:
а) сумму элементов каждой строки
б) сумму элементов каждого столбца

@Alex1OPS · 22.11.2010, 21:04

Pascal

program TP_1;
uses crt;
const n=10;
var a:array [1..n,1..n] of word;
     i,j,s1:word;
BEGIN
RANDOMIZE;
        clrscr;
        for i:=1 to n do for j:=1 to n do a[i,j]:=random(100);
        for j:=1 to n do 
        begin
               s1:=0;
               for j:=1 to n do s1:=s1+a[i,j];
               writeln('Сумма элементов строки № ',i,'=',s1);
        end;
        for j:=1 to n do
        begin
              s1:=0;
              for i:=1 to n do s1:=s1+a[i,j];
              writeln('Сумма элементов столбца № ',j,'=',s1);
        end;
        readln;
END.

Добавлено через 37 секунд
в 11 строке вместо j надо i

@almas_altay 2 / 2 / 0 Регистрация: 08.10.2010 Сообщений: 43
		1
	Найти сумму элементов каждой строки матрицы 22.11.2010, 20:55. Показов 2958. Ответов 1 Метки нет (Все метки) Дан двумерный массив . Найти: а) сумму элементов каждой строки б) сумму элементов каждого столбца 0

	22.11.2010, 21:04

Опции темы

Найти сумму элементов каждой строки матрицы

Решение