Помогите пожалуйста с программой по паскалю

[minkin]

Нужно составить программу.
Если в столбцах,встретился элемент,равный сумме первых двух элементов текущего столбца,то удалите строки, в которых они находятся.Удалите столбцы,в которых первый элемент нулевой.Если такого столбца или строки нет,то вывести сообщение об этом.

[Vanta11a]

Ну а в чем конкретно проблем? Где наработки?
Не вижу ничего сверхъестественного в задании.

[minkin]

удаление строк и столбцов не получается.

Program x1; uses crt;
const
    M = 3;
    N = 5;
var
    a: Array[1..N,1..M] of integer;
    b: Array[1..N,1..M] of integer;
    i,j,b1,b2: integer;
begin clrscr;
    Randomize;
    for i := 1 to N do //заполнение массива
        for j := 1 to M do
            a[i,j]:=random (5);
    for i := 1 to N do begin
        for j := 1 to M do
            write (a[i,j]:5);
            writeln;
    end;
        writeln;
    for j := 1 to M do begin
        b1:=a[1,j]+a[2,j];
        write (b1:5);
        if b1=a[3,j] then write ('0':5) else write(a[3,j]:5);
        if b1=a[4,j] then write ('0':5) else write(a[3,j]:5);
        if b1=a[5,j] then write ('0':5) else write(a[3,j]:5);
        writeln;
    end;
        writeln;
    for j := 1 to M do begin
        b2:=a[1,j];
        if b2=0 then write ('0') else write(b2);
        writeln;
    end;
end.

[Vanta11a]

Ладно, допустим. А что Вы хотели сказать своим кодом?
Например почему выводятся 3 элемента из столбца вот тут

        if b1=a[3,j] then write ('0':5) else write(a[3,j]:5);
        if b1=a[4,j] then write ('0':5) else write(a[3,j]:5);
        if b1=a[5,j] then write ('0':5) else write(a[3,j]:5);

?

Не претендую на правильность, но на Вашем месте я бы ввел 2 массива, один размерностью N, другой - M. Булевые (boolean). По умолчанию значение всех элементов - false.
Дальше начинаете поиск по условиям. Нашли условие, по которому столбец надо удалить - флажок соответствующего столбца в true. Нашли строку, которую надо удалить - флажок строки в true.
И при выводе смотрите на флажки, если true - ничего не выводится, если false - выводится текущее значение.

Как-то так.

[minkin]

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

[Vanta11a]

В псевдопаскале как-то так:

bool1 : array [1..M] of boolean;
bool2 : array [1..N] of boolean;
...
for 1 to M do
  begin
  if (a1[M,1] = 0) then bool1[M] := true;
  for 3 to N do
    if (a1[M,1]+a1[M,2] = a1[M,N]) then bool2[N] := true;
  end;
for (...)
 for (...)
   if (bool1[M] and bool2[N]) then ...