Question

Se dau o matrice de dimensiunea m,n si un numar k, k(mai mic egal)m.Sa se elimine linia k din matrice.

In pascal daca se poate.

Answer 1

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!