Удалить все столбцы двумерного массива, в которых нет нулевых элементов

@zhumabek · Регистрация: 25.11.2011

Удалить все столбцы двумерного массива которых нет нулевых элементов...

@WebMax 2.0 · 09.12.2011, 04:49

Pascal

uses crt;
 
var a: array [1..7,1..7] of integer;
i,j,k,g,x:integer;
 
begin
   Writeln('Èñõîäíûé ìàññèâ: ');
   For i:=1 to 7 do begin
     For j:=1 to 7 do begin
     randomize;
     a[i,j]:=random(10)-5;
     write(a[i,j]:2);
     end;
   writeln;
   end;
   Writeln;
   Writeln('Îòñîðòèðîâàííûé ìàññèâ: ');
   For i:=1 to 7 do begin
   x:=0;
     For j:=1 to 7 do begin
     if a[j,i]=0 then inc(x);
     end;
   if x>0 then begin
       For g:=1 to 7 do begin
          gotoxy(i*2-1,g+10);
          write(a[g,i]:2);
          Writeln;
          end;
     end;
   end;
end.

@vatsona · 08.01.2013, 13:30

Зделайте пожалуйста эту задачу в процедуре )))))

Добавлено через 52 минуты
Если можно очень,очень нужно)))

@zhumabek 1 / 1 / 1 Регистрация: 25.11.2011 Сообщений: 63
		1
	Удалить все столбцы двумерного массива, в которых нет нулевых элементов 08.12.2011, 16:30. Показов 1696. Ответов 2 Метки нет (Все метки) Удалить все столбцы двумерного массива которых нет нулевых элементов... 0

@vatsona 1 / 1 / 0 Регистрация: 06.01.2013 Сообщений: 26
	08.01.2013, 13:30	3
	Зделайте пожалуйста эту задачу в процедуре ))))) Добавлено через 52 минуты Если можно очень,очень нужно))) 0

Опции темы

Удалить все столбцы двумерного массива, в которых нет нулевых элементов

Решение