Ошибка в программе

[yulia.a]

Попыталась написать программу по прикрепленному заданию. Запускаться она запускается, только вот ничего не считает. Бред какой-то с этой процедурой получается. Помогите, пожалуйста! Что неправильно у меня? А то я уже что только не пробовала менять, все равно ничего не считается.

program L;
 const
  m=3;
  n=4;
 type
  mas=array[1..m] of integer;
  matr=array[1..m,1..n] of integer;
 var
  a:matr;
  i,j,s,smin,t:integer;
 procedure SUMMA (k:integer; var sum:integer);
 var
  j:integer;
 begin
  for j:=1 to n do
   sum:=0;
   sum:=sum+a[i,k];
 end;  
 begin 
  randomize;
  for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(6);
      write(a[i,j]:4);
     end;
     writeln;
   end;
  SUMMA(j,s);
  write('Сумма элементов столбцов: ');
  write(s,' ');
  writeln;
   if s<smin
    then 
     begin
      smin:=s;
      t:=i;
     end;
     writeln('Мин. сумма столбцов ',smin,' в столбце ',t);
 End.

[ViktorR]

Как минимум:

procedure SUMMA (k:integer; var sum:integer);
 var
  j:integer;
 begin
 sum:=0;
  for j:=1 to n do
    sum:=sum+a[i,k];
 end;

Как-то так,...

[yulia.a]

Изменила немного код, включая поправку, но это ничего нормального не дало, выводит в суммах элементов столбцов(s) огромное число, никак не связанное с матрицей, а в мин. сумме столбцов(smin) все равно ноль.

program L;
 const
  m=3;
  n=4;
 type
  mas=array[1..m] of integer;
  matr=array[1..m,1..n] of integer;
 var
  a:matr;
  i,j,s,smin,t:integer;
  a1:mas;
 procedure SUMMA (b:mas; var sum:integer; n:integer);
 var
  i:integer;
 begin
  sum:=0;
  for j:=1 to n do
   sum:=sum+b[i];
 end;  
 begin 
  randomize;
  for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(6);
      write(a[i,j]:4);
     end;
     writeln;
   end;
  SUMMA(a1,s,m);
  write('Суммы элементов столбцов: ');
  write(s,' ');
  writeln;
   if s<smin
    then 
     begin
      smin:=s;
      t:=i;
     end;
     writeln('Мин. сумма столбцов ',smin,' в столбце ',t);
 End.

[ViktorR]

Смотрим на фрагмент:

SUMMA(a1,s,m); {Подсчет суммы одномерного массива}
  write('Суммы элементов столбцов: '); {о каких столбцах речь?}
  write(s,' ');
  writeln;
   if s<smin  {smin - что это за smin, где оно было инициализировано?}
                {по умолчанию smin = 0}
    then      {и это не работает}
     begin
      smin:=s;
      t:=i;
     end;

А где подсчет суммы столбцов матрицы? Как передается столбец матрицы в процедуру?
Циклы:

 for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(6);
      write(a[i,j]:4);
     end;
     writeln;
   end;

- это только инициализация элементов матрицы.


Как-то так, ...

[yulia.a]

Смотрим на фрагмент:
Код:

SUMMA(a1,s,m); {Подсчет суммы одномерного массива}
write('Суммы элементов столбцов: '); {о каких столбцах речь?}
write(s,' ');
writeln;
if s<smin {smin - что это за smin, где оно было инициализировано?}
{по умолчанию smin = 0}
then {и это не работает}
begin
smin:=s;
t:=i;
end;

Суммы элементов столбцов, т.е. я имела в виду сумму элементов каждого столбца двумерного массива в отдельности.
smin приравняла к s. Но т.к. программа не работает, я не могу понять правильно это или нет

А где подсчет суммы столбцов матрицы? Как передается столбец матрицы в процедуру?
Циклы:
Код:

for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(6);
write(a[i,j]:4);
end;
writeln;
end;

- это только инициализация элементов матрицы.

В том-то и дело. Как я могу передать столбец, если нужно составить процедуру подсчета суммы значений элементов в одномерном массиве? Вот это мне как раз и непонятно, как применить процедуру, написанную для одномерного массива, к двумерному массиву. Из-за этого у меня ничего и не получается, я так думаю.

[yulia.a]

Помогите, пожалуйста! Как сделать, чтобы программа работала? Сейчас она запускается, выводит матрицу, но сумму каждого столбца не считает.

program L;
 const
  m=3;
  n=4;
 type
  mas=array[1..m] of integer;
  matr=array[1..m,1..n] of integer;
 var
  a:matr;
  i,j,s,smin,t:integer;
  a1:mas;
 procedure SUMMA (b:mas; var sum:integer; m:integer);
 var
  i:integer;
 begin
  sum:=0;
  for j:=1 to m do
   sum:=sum+b[i];
 end;  
 begin 
  randomize;
  for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(6);
      write(a[i,j]:4);
     end;
     writeln;
   end;
  SUMMA(a1,s,m);
  write('Суммы элементов каждого столбца: ');
  write(s,' ');
  writeln;
  smin:=s;
   if s<smin
    then 
     begin
      smin:=s;
      t:=j;
     end;
     writeln('Мин. сумма столбцов - ',smin,' (в столбце ',t,' )');
 End.

[Stilet]

program L;
 const
  m=3;
  n=4;
 type
  mas=array[1..m] of integer;
  matr=array[1..m,1..n] of integer;
 var
  a:matr;
  i,j,s,smin,t:integer;
  a1:mas;

 procedure SUMMA (b:mas; var sum:integer; m:integer);
 var
  i:integer;
 begin
  sum:=0;
  for j:=1 to m do
   sum:=sum+b[i];
 end; 

 begin 
  randomize;
  for i:=1 to m do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(6); a1[j]:=a1[j]+a[i,j];
      write(a[i,j]:4);
     end;
     writeln;
   end;

SUMMA(a1,s,m);

  write('Суммы элементов каждого столбца: ');
  for i:=1 to n do write(a1[i]:5); writeln;
  write(s,' ');
  writeln;
  smin:=s;
   if s<smin
    then 
     begin
      smin:=s;
      t:=j;
     end;
     writeln('Мин. сумма столбцов - ',smin,' (в столбце ',t,' )');
 End.

[yulia.a]

Спасибо! Теперь суммы по столбцам считает правильно)

Минимальную сумму он все равно не считал, я пробовала сделать сама, но он считает неправильно. Почему не понимаю. Помогите, пожалуйста!
Вот этот кусочек:

write('Суммы элементов каждого столбца: ');
  for i:=1 to n do 
  write(a1[i]:5); 
  writeln;
  smin:=a1[1];
   if a1[i]<smin
    then 
      smin:=a1[i];
      t:=i;
  writeln('Мин. сумма столбцов = ',smin,' (в столбце ',t,' )');

[Stilet]

А как он будет ее считать, если цикл у тебя распространяется только на write(a1[i]:5);
Ставь цикл для остальных операторов.