Вывести сумму каждого столбца и нечетных чисел - Pascal ABC

Формулировка задачи:

Дв. мерный массив выводит сумму каждого столбца и нечетных чисел. у меня выводит сумму каждого столбца(где фигурные скобки) в процедурe, а надо чтобы из главной, достаточно много вариантов рассмотрел но получается не то
type
  matrix=array[1..100,1..100] of integer;
var
   a:matrix;
   n, m : integer;
 
procedure fill(var a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i, j]:=random(100);
end;
 
procedure display(a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do write(a[i, j]:3);
      writeln;
   end;      
end;
 
function sum(a: matrix; m, n : integer):integer;
var i, j : integer;
s:real;
begin
  For j:=1 to m do
     Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];
       
       
      writeln('Сумма ',j,'-ого столбца: ',s:1);{}
     End;
end;
 
function sum_k(a: matrix; n, m : integer):integer;
var i, j, s : integer;
begin
s:=0;
 for i:=1 to n do
 for j:=1 to m do begin
 if a[i,j] mod 2 <> 0 then
s:=s+a[i,j];
end;
sum_k:=s;
end;
 
begin
   readln(n, m);
   fill(a, n, m);
   display(a, n, m);
   writeln(sum(a, m, n));
  
   writeln(sum_k(a, n, m));
end.

Код к задаче: «Вывести сумму каждого столбца и нечетных чисел - Pascal ABC»

textual
type
  matrix=array[1..100,1..100] of integer;
var
   a:matrix;
   n, m,i,j : integer;
   s:real;
 
procedure fill(var a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i, j]:=random(100);
end;
 
procedure display(a: matrix; n, m:integer);
var i, j : integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do write(a[i, j]:3);
      writeln;
   end;
end;
 
 
function sum_k(a: matrix; n, m : integer):integer;
var i, j, s : integer;
begin
s:=0;
 for i:=1 to n do
 for j:=1 to m do begin
 if a[i,j] mod 2 <> 0 then
s:=s+a[i,j];
end;
sum_k:=s;
end;
 
begin
   readln(n, m);
   fill(a, n, m);
   display(a, n, m);
     For j:=1 to m do
     Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];
 
 
      writeln('Сумма ',j,'-ого столба: ',s:1);{}
     End;
 
   writeln(sum_k(a, n, m));
end.

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ