Двумерный массив

[Бибик]

Помогите написать программу, пожалуйста:
Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненые нулями(оформить в виде процедуры).
Найти номер первой из строк, содержащих хотя бы один положительный элемент(оформить в виде функции).
Заранее очень благодарен!

[ОДИНОЧЕСТВО В СЕТИ]

Сможете?

Язык какой хоть?

[RUSt88]

я так думаю, им впад..у искать чё-то, хоть самую малость, самое элементарное. О, да, зачем я буду искать, тратить своё время, я лучше пойду пива попью, а умные ребята пусть здесь решат всё как надо, никаких заморочек

[Бибик]

Паскаль, поможете?

[Deamonig]

Да, щас напишу

[Deamonig]

Вот 2-е, а 1-е я не совсем понял, главное вывести уплотненную матрицу или же иметь в программе матрицу a[1..n,1..m] которая максимально уплотненна, если нужно иметь данную матрицу в программе, то даже хз как сделать, потому как я не знаю как описать уплотненную матрицу (сколько столбцов и строк в ней будет зарание никому неизвестно)

...
function strok:integer;
var 
a:array[1..n,1..m] of integer;
k:byte;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln('vedite a[',i,',',j,']');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
if k<>1 then if a[i,j]>0 then
begin
strok:=i;
k:=1;
end;
end;
...

[ОДИНОЧЕСТВО В СЕТИ]

даже хз как сделать, потому как я не знаю как описать уплотненную матрицу

var a:array[1..100,1..100] of integer;//вот так она описывается)
    n,m:integer;
    i,j:integer;
procedure uplotnS;
var i,j:integer;
    k,k1:integer;
    f:boolean;
begin
repeat
for i:=1 to n do begin
f:=true;
k:=0;
k1:=-1;
for j:=1 to m do
if a[i,j]=0 then inc(k);
if k=m then begin f:=false; k1:=i;break; end;
end;
if not f  then begin n:=n-1;
for i:= k1 to n do
 for j:=1 to m do
 a[i,j]:=a[i+1,j];
 end;
until f;
end;
procedure uplotnC;
var
    k,k1:integer;
    f:boolean;
    tmp:integer;
begin
repeat
for j:=1 to m do  begin
f:=true;
k:=0;
k1:=-1;
 for i:=1 to n do
if a[i,j]=0 then inc(k);
if k=n then begin f:=false; k1:=j;break; end;
end;
if not f  then begin m:=m-1;
for j:= k1 to m do
 for i:=1 to n do
 a[i,j]:=a[i,j+1];
 end;
until f;
end;



begin
 readln(m);
 readln(n);
 for i:=1 to n do
 for j:=1 to m do
 readln(a[i,j]);
 for i:=1 to n do begin
 for j:=1 to m do
  write(a[i,j]:2);
  writeln;
  end;
 uplotnS;
 uplotnC;
 Writeln('==================');
  for i:=1 to n do begin
 for j:=1 to m do
  write(a[i,j]:2);
  writeln;
  end;
  readln;
end.

[RUSt88]

О чём вы говорите? Какое var a: array[1..100, 1..100] ???
Когда не знаешь на этапе компиляции, какого размера будет матрица, используют динамическое создание строк и столбцов! ужас...

[ОДИНОЧЕСТВО В СЕТИ]

Когда не знаешь на этапе компиляции, какого размера будет матрица, используют динамическое создание строк и столбцов

Вы когда нибудь заполняли руками матрицу 100 на 100???И зачем тут динамика если матрицы > чем 100 на 100 точно не будет)

[Alex Cones]

динамическое создание строк и столбцов!

Кто-то явно забывает, что в паскале нет SetLength и динамики.