Информатика, опубликовано 2018-08-22 22:41:15 by Гость
Составьте программу вычисления суммы элементов в каждом столбце матрицы С размерами N x N
Ответ оставил Гость
Program asd;
Const n=4;
Var C:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to n do
begin
C[i,j]:=1+Random(9);
Write(C[i,j], );
end;
Writeln;
end;
Writeln;
For j:=1 to n do
begin
s:=0;
For i:=1 to n do
begin
S:=S+C[i,j];
end;
Writeln(Столбец[,j,] = ,s);
end;
END.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на