Пожалуйста, помогите с задачкой: В квадратной матрице определить сумму элементов нечетных столбцов

[Skobka]

Разработать алгоритм и программу. В квадратной матрице определить сумму элементов нечетных столбцов.

Заранее спасибо

[Вадим Мошев]

Что не получается? Сами пробовали? Попытайтесь сами, выложите свои наработки, там посмотрим...

[Skobka]

const
  N=5;
  M=4;
 var
  table:array[1..N,1..M] of integer;
  i,j, sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to M do
    table[i,j]:=random(100);
    if not odd(j) then
      begin
        sum:=sum+Table[i,j];
      end;
  for i:=1 to N do
    begin
      for j:=1 to M do
        write(table[i,j],' ');
      writeln;
    end;
   writeln('Сумма: ',sum);
   readln;
 end.

[Serge_Bliznykov]

ну, во-первых, код с ошибкой. Нечётные столбцы это как раз odd(),
у Вас наоборот, чётные столбцы суммируются (точнее суммировались, если бы код верно был написан).
Ну и операторные скобки begin end неверно стоят, проверка на чётность/нечётность вообще за пределами цикла получается!
Ну и массив двухмерные, поэтому нужно два цикла по строка и по столбцам!

нужно так:

  sum:=0;
  for i:=1 to N do 
    for i:=1 to M do begin
      table[i,j]:=random(100);
      if odd(j) then
        sum:=sum+Table[i,j];
    end;

вывод массива вроде нормальный...

а во-вторых, что именно Вы не понимаете? Спрашивайте, Вам подскажут.
Тут халявщиков не очень жалуют. А тех, кто сам пытается задачу решить - как раз наоборот!

[Skobka]

Спасибо
Я разобралась уже с этим)

[Вадим Мошев]

Тогда закроем тему. Если у вас возникнут вопросы, создайте новую в соответствующем разделе...