Матрица, паскаль. Выбор строк.

[ene21]

Всем здравствуйте. Помогите пожалуйста. Дана матрица ( максимум 10 на 10 ). В ней нужно дофига сделать, в частности, заменить все элементы в четных столбцах на нулевые. Внизу код, где описанна задание исходной матрицы, попытка выполнения замены и вывод. Вариант кода верный, для матрицы 5 на 5. Но как сделать в общем виде выборку четных столбиков я не знаю...Сори, что много лишнего...=)

program forset;
uses crt;
var
a:array[1..10,1..10] of integer;
i,j:integer;
n,k:integer;
begin
clrscr;
writeln('Программа создает матрицу чисел и во всех четных столбцах');
writeln('меняет элементы на нулевые.');
writeln;
repeat
write('Введем макс. число строк - ');
read(n);
 if (n<=0) or (n>10) then
  begin
   writeln('Ошибка!');
   writeln;
  end;
until (n>=1) and (n<=10);
writeln;
repeat
write('Введем макс. число столбцов - ');
read(k);
 if (k<=0) or (k>10) then
  begin
   writeln('Ошибка!');
   writeln;
  end;
until (k>=1) and (k<=10);
writeln;
writeln('Теперь заполним матрицу');
writeln;
 for i:=1 to n do
  for j:=1 to k do
   begin
    write('вводим''a[',i,',',j,']''элемент, равный - ');
    read(a[i,j]);
   end;
  writeln;
  writeln('Готовая матрица');
   for i:=1 to n do
    begin
     for j:=1 to k do
      write(a[i,j]:4);
     writeln;
    end;
   writeln;
   writeln('выполним замену');
   writeln;
    for i:=1 to n do
      for j:=2 to k-1 do
       begin
        a[i,j]:=0;
       end;
      writeln('Получившаяся матрица');
     writeln;
      for i:=1 to n do
       begin
        for j:=1 to k do
         write(a[i,j]:4);
        writeln;
       end;
repeat until keypressed;
   end.

[NSvirus]

program abc;
uses crt;
var i,j,k:integer;
a:array[1..10,1..10] of integer;
begin
clrscr;
 for i:=1 to 10 do
   for J:=1 to 10 do
      a[i,j]:=random(50);
//отсюда идет обнуление столбцов
 j:=2;
repeat
 for i:=1 to 10 do
   a[i,j]:=0;
j:=j+2;
until j>10;
end.

[ene21]

хмм...у меня програмка обнуляет все столбики...а как только те, которые четные???

[NSvirus]

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

[ene21]

Все! Спасибо, разобрался и заинсталил кусок в свою прогу.!!! Огромное спасибо!