mihaispr
Administrator
 Inregistrat: acum 17 ani
Postari: 2142
|
|
{Eliminarea unei linii l si a unei coloane c dintr-o matrice Am*n} type matrice=array[1..40,1..50] of integer; var a:matrice; m,n,i,j,l,c:integer; begin write('m=');readln(m); write('n=');readln(n); for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']='); readln(a[i,j]); end; writeln('matricea initiala:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end;
write('l=');readln(l); for i:=l+1 to m do for j:=1 to n do a[i-1,j]:=a[i,j]; m:=m-1; writeln('matricea fara linia ',l); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end;
write('c=');readln(c); for j:=c+1 to n do for i:=1 to m do a[i,j-1]:=a[i,j]; n:=n-1; writeln('matricea fara coloana ',c); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; readln end.
|
|