[King Soft]

وعليكم السلام اخي

Program Matrice;
uses crt;
type Mx=array[1..5,1..5]of integer;
var A,B,C:Mx;
Procedure Remplassage(var M:Mx);
var i,j:integer;
begin
Clrscr;
Writeln('Romplassage le matrice :');
for i:=1 to 5 do
    for j:=1 to 5 do
     begin
        gotoxy(j*5,i*5);
        Read(M[i,j]);
        end;
end;
Procedure Som(M1,M2:mx ;var M:Mx);
var i,j:integer;
begin
for i:= 1 to 5 do
    for j:=1 to 5 do
    M[i,j]:=M1[i,j]+M2[i,j];
end;
procedure Produit(M1,M2:mx;var M:mx);
var i,j,k:integer;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
        M[i,j]:=0;
        for k:=1  to 5 do
            M[i,j]:=M[i,j]+M1[i,k]+M2[k,j];
        end;
end;
procedure Affich(M:Mx);
var i,j:integer;
begin
clrscr;
for i:=1 to 5 do
    for j:=1 to 5 do
    begin
     gotoxy(j*5,i*5);
     Write(M[i,j]);
    end;
end;
begin
Remplassage(A);
Remplassage(B);
clrscr;
Writeln;
Writeln('Entre 1 pour Calcul la Som ');
Writeln('Entre 2 pour Calcul le Produit ');
Case Readkey of
'1':Som(A,B,C);
'2':Produit(A,B,C);
end;
Affich(C);




readln;readln;

end.

بالتوفيق