Процедуры и функции

[11111]

Помогите пожайлуста с этой задачей.

Помогите пожайлуста дополнить её удалением и так же проверить правильноли она написанна
Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. Удалить все столбцы, в которых нет нулевого элемента.

program lab4;
const
k=10;
var
A:array [1..10, 1..10] of integer;
M,N:integer;
procedure inputArray;
var
i,j:integer;
            begin
            write ('M=');
            readln (M);
            if M>10 then
               begin
               writeln ('M must be <=10');
               N:=0; M:=0;
               exit;
               end;

               write ('?N=');
               readln (N);
               if N>10 then
                  begin
                  writeln ('N must be <=10');
                  N:=0; M:=10;
                  exit;
                  end;

                  for i:=1 to M do
                      begin
                      write ('?A[',i,',',',j]=');
                      readln (A[i,j]);
                      end;

            end;

procedure printArray;
var
i,j:integer;
begin
writeln ('A=');
if (N>0) and (M>0) then
   begin
   for i:=1 to M do
       begin
       write (A[i,j]);
       end;
       writeln;
   end;
end;
procedure ydalenia;

end;
    begin
    inputArray;
    printArray;
    vstav;
    printArray;
    end.

[puporev]

Вот для начала процедура ввода массива. Как она работает в программе смотри во вложении.

procedure InputArray; принято процедуры и функции начинать с большой    
                      буквы
var
i,j:integer;  можно перенести в глобальные переменные, т.е. где M,N
begin
  clrscr;                
  write ('M=');
  readln (M);
  if M>10 then
      begin
          writeln ('M must be <=10');
          N:=0; M:=0;   зачем?
          exit;
      end;
  write ('?N=');
  readln (N);
  if N>10 then
      begin
          writeln ('N must be <=10');
          N:=0; M:=10;    зачем?
          exit;
      end;
  ((for i:=1 to M do                НЕПРАВИЛЬНО, если массив двухмерный,
      Begin                          то и измерений должно быть два
         write ('?A[',i,',',',j]=');
         readln (A[i,j]);
      end;))
  for i:=1 to M do 
     for j:=1 to N do
        begin
           write ('A[',i,',',j,’]='); аккуратнее с запятыми и 
           readln (A[i,j]);              апострофами
        end;
   clrscr;   очистим экран и выведем на него наш массив в виде матрицы
   for i:=1 to M do
      begin 
        for j:=1 to N do
          write (A[i,j]:3);  (:3 – дает пробел между цифрами в три 
          writeln;                    знака)
      end;
   readln;
end;

[11111]

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

[Stilet]

А что если просто не выводить на экран такие столбцы?
Или нужно обязательно показать код удаления?

[11111]

думаю можно не выводить (но желательно с кодом удаления)

[Stilet]

Тогда сделай еще одну переменку такого массива и в нее собирай все столбцы которые имеют нулевой элемент,
а потом переприсвой первоначальному массиву этот.

[11111]

а как это будет на паскале

пожайлуста помогите с удалением

[puporev]

Хотел помочь автору темы с решением задачи, но сам запутался. Нахожу столбцы с нулевыми элементами, считаю их количество ... и все. Как вывести эти столбцы в новой матрице не могу придумать. Для квадратной матрицы нашел хитрое, но наверное неправильное решение (вывожу в строку и транспонирую), а для прямоугольной не могу. Если у кого есть время подскажите мне для душевного равновесия да и человеку заодно поможем. Начало кода прилагаю.

program udalstlb;
uses crt;
var n,i,k,j,d:integer; a,c:array[1..10,1..10] of integer;
b:array[1..100]of integer;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do      
    for j:=1 to n do
      begin
       a[i,j]:= random(5)-1;
      end;

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

  for j:=1 to n do     
    begin
      k:=0;d:=0;
      for i:=1 to n do
        begin
          if a[i,j]=0 then k:=k+1;
        end;
      if k>0 then d:=d+1;
Дальше просто для того, что бы проверить правильно ли выделил столбцы.

      for i:=1 to n*d do b[i]:=a[i,j];
      for i:=1 to n*d do write (b[i],' ');
      end;
      readln; end.

[11111]

люди помогите пожайлуста очень надо

[Alex21]

В чем проблема?
Перебираем значения столбцов в обратном порядке(справа на лево).
Если Нулевого элемента в столбце нет, то сдвигаем уже пройденые столбцы на 1 влево.

И потом, чем вариант Стилета не подходит? Пост #6.