Răspuns:
program EliminareLinie;
const mmax=100; nmax=100;
type matrice=array[1..mmax,1..nmax]of integer;
var mat:matrice; n,m,k,i,j:integer;
begin
read(m,n,k);
for i:=1 to m do
for j:=1 to n do
read(mat[i,j]);
for i:=k to m-1 do
for j:=1 to n do
mat[i,j]:=mat[i+1,j];
m:=m-1;
for i:=1 to m do
begin
for j:=1 to n do
write(mat[i,j],' ');
writeln;
end;
end.
Explicație:
nu am facut comentarii ajutatoare... cred le poti adauga la necesitate... succese!
