вывод массива без одного из столбцов

[evg94]

задача такова - в матрице 5х8 удалить самый левый столбец где встречается отрицательное четное число.
найти номер столбца я смогла. подскажите как вывести матрицу без него

program stolbcy;
const
  n=5;
  m=8;
type
  matrix = array[1..n,1..m]of integer;
var
a:matrix;
min,i,j,s,k:integer;
begin
  randomize;
  for i:=1 to n do
     begin
     for j:=1 to m do
       begin
       a[i,j]:=random(100)-50;
       writeln (a[i,j],' ');
       writeln;
       end;
     writeln;
     end;
begin
 k:=0;
 for j:=1 to m do
 while k=0 do
  begin
   for i:=1 to n do
   if (a[i,j]<0)and (a[i,j] mod 2 <> 0) then begin k:=j;; end;
  end;
  writeln ('столбец ',k);
end;
end.

извиняюсь за беспокойство) проблема решилась.
вот готовое решение

program stolbcy;
const
  n=5;
  m=8;
type
  matrix = array[1..n,1..m]of integer;
var
a:matrix;
min,i,j,s,k:integer;
begin
  randomize;
  for i:=1 to n do
     begin
     for j:=1 to m do
       begin
       a[i,j]:=random(150)-100;
       writeln (a[i,j],' ');
       writeln;
       end;
     writeln;
     end;
begin
 k:=0;
 for j:=1 to m do
 while k=0 do
  begin
   for i:=1 to n do
   if (a[i,j]<0)and (a[i,j] mod 2 <> 0) then k:=j;
   if i=n then break;
  end;
end;
begin
  if k=0 then begin writeln ( 'в массиве отсутствуют отрицательные четные элементы'); exit; end else writeln ( 'будет удален столбец № ', k);
end;
begin
  for i:=1 to n do
    begin
    for j:=1 to m do
      begin
      if (j<> k) then writeln (a[i,j],' ');
      writeln;
      end;
    writeln;
    end;
end;
writeln ( 'удален столбец № ', k);
end.

[TinMan]

Сообщение от evg94

проблема решилась.
вот готовое решение

Кхм.. Я бы так не спешил с выводами..
Во-первых, ты удаляешь столбец с первым нечетным элементом.
Во-вторых - ты же его не удаляешь, а просто не выводишь на печать. Ты уверена, что это то, что нужно?

И потом - ну, кто же так делает вывод матрицы?.. Тут и дисплея с километровой диагональю не хватит.. И еще - зачем столько begin/end'ов? Учись правильно форматировать код, это тебе ОЧЕНЬ поможет.

Вот тебе поправленное решение (все еще не с реальным удалением, а просто с невыводом столбца).

program stolbcy;
const
  n=2;
  m=8;
type
  matrix = array[1..n,1..m]of integer;
var
  a:matrix;
  min,i,j,s,k:integer;
begin
  randomize;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(150)-100;
      write (a[i,j]:4);
    end;
    writeln;
  end;
  k:=0;
  for j:=1 to m do begin
    for i:=1 to n do
      if (a[i,j]<0)and not Odd(a[i,j]) then begin
        k:=j;
        break
      end;
    if k>0 then break
  end;
  if k=0 then
    writeln ( 'в массиве отсутствуют отрицательные четные элементы')
  else begin
    writeln ( 'будет удален столбец № ', k);
    for i:=1 to n do begin
      for j:=1 to m do if (j<>k) then write(a[i,j]:4);
      writeln;
    end;
    writeln ( 'удален столбец № ', k)
  end;
  readln
end.

[evg94]

Сообщение от TinMan

Во-первых, ты удаляешь столбец с первым нечетным элементом.

Извиняюсь, там if (a[i,j]<0)and (a[i,j] mod 2 = 0) then k:=j;

Сообщение от TinMan

ты же его не удаляешь, а просто не выводишь на печать. Ты уверена, что это то, что нужно?

для уровня 11 класса вполне достаточно)

Сообщение от TinMan

И потом - ну, кто же так делает вывод матрицы?..

кто.... 11 ин-тех класс лицея))) просто я к ним пришла в этом году... паскаль учила сама) и очень многое в моей и их записи отличается.... некоторые вещи начала писать как они дабы было меньше путаницы.

[Alex11223]

А ты смотрела как у тебя она выводится? Все по 1 и через строчку.
Лучше так

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

upd: ой, не заметил, что выше уже был исправленный вариант

[evg94]

Спасибо за советы) приму к сведению) надеюсь к олимпиаде успеть разобраться.... массивы вроде разобрала, остались файлы) пошла насиловать мозг)

[TinMan]

Сообщение от evg94

Спасибо за советы) приму к сведению) надеюсь к олимпиаде успеть разобраться.... массивы вроде разобрала, остались файлы) пошла насиловать мозг)

Всегда пожалуйста ).
Если они там так лажают, держись поближе к нам )).