двумерный массив2

@sergeybesfa · Регистрация: 21.05.2010

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

неподддаётся решению задачка помагите плиз!!!!!!!!!!!!!
В матрице размером n на m (1<n, m<10)(ввод n,m и матрицы с клавиатуры) в каждом столбце найти сумму элентов. Вывести на экран матрицуи суммы для каждого столбца. Использовать подпрограммы.

Pascal

    uses crt;
var
 mas:array[1..100,1..10] of integer;
 nk:array[1..10] of integer;
 i,j,n,m:integer;
procedure vvod1;
begin
 writeln('ввод размера матрицы');
 write('n=');
 readln(n);
 write('m=');
 readln(m);
end;
procedure vvod2;
begin
 writeln('ввод элементов матрицы');
 for i:=1 to n do
  for j:=1 to m do
   read(mas[i,j]);
end;
procedure nom;
begin
 for j:=1 to m do
  for i:=1 to n do
   begin
    nk[j]:=nk[j]+mas[i,j];
   end;
end;
procedure vyvod;
begin
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to m do
     write(mas[i,j], ' ');
  end;
 writeln;
 for i:=1 to m do
  write(nk[i], ' ');
end;
begin
 clrscr;
 vvod1;
 vvod2;
 nom;
 vyvod;
end.

ОБЯЗАТЕЛЬНО РЕШЕНИЕ С ПОМОЩЬЮ ПОДПРОГРАММ!!!!!!!!!

	05.06.2010, 16:05