Двумерные массивы

[M@rgo]

Нужно очень!!!!!проверить задачку и исправить ошибки...и нужно хорошее объяснение!!!!! Пожалуйста!!!!!!

Двумерные массивы
№22
Дан массив размера M*N. Для каждого столбца матрицы с четным номером (2,4,…) найти сумму его элементов.

Объявление переменных:

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j:byte;
s:integer;

begin
randomize;
repeat
write('kol-vo strok ot 2 do ',nmax,' m=>'); readln(m);
until m in [2..nmax];
repeat
write('kol-vo stolbcov ot 2 do ',nmax,' n=>');readln(n);
until n in [2..nmax];
writeln('ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln;

создаем цикл i=2 т.к. мы будем учитывать только четные столбцы, поэтому похоже мы к i прибавляем 2,чтоб работать с ними..s(сумма) - начальное значение 0. И в цикле считаем и выводим значение суммы элемента каждого столбца:

i:=2;
while i<=n do
begin
s:=0;
for j:=1 to n do
s:=s+a[i,j];
writeln('summa v stroke ',i,' = ',s);
i:=i+2;

end;
readln;
end.

[GetMax]

Вместо

while i<=n do

нужно

while i<=m do

потому что n - это количество столбцов, а вам нужно сравнивать с количеством строк.

и нужно хорошее объяснение!!!!

А что объяснять то? Вы сами все подробно описали.

[M@rgo]

СПАСИБО!!!!!огромнейшее... оч.помогли!!!!