Просуммировать элементы столбцов матрицы. Результаты представить в виде одномерного массива - PascalABC.NET
Формулировка задачи:
Понимаю что для вас это может быть слишком легко, но я знаком с паскалем второй день, помогите решить:
Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.
Решение задачи: «Просуммировать элементы столбцов матрицы. Результаты представить в виде одномерного массива»
textual
Листинг программы
примерно так
const n=3; m=4;
var
a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3);
end;
writeln;
end;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
write(s:3);
end;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д