Soru 18: İki matrisi toplayan program

 

{Girilen NxM ve ZxK matrislerini toplayan program}

program mat_top;

uses crt;

var

  matris1,matris2,toplamatris:array[1..10,1..10] of integer;

  x,y,i,j:integer;

begin

  clrscr;

  write('Toplanacak matrislerin boyutlarını giriniz(X,Y)');

  readln(x,y);

 

  for i:=1 to x do

    for j:=1 to y do

      begin

        write('Birinci matrisin ',i,'-',j,' nolu hücresine

               sayı girin :');

        readln(matris1[i,j]);

      end;

 

  for i:=1 to x do

    for j:=1 to y do

      begin

        write('İkinci matrisin ',i,'-',j,' nolu hücresine sayı

               girin :');

        readln(matris2[i,j]);

      end;

 

 

  for i:=1 to x do

    for j:=1 to y do

      begin

        toplamatris[i,j]:=matris1[i,j]+matris2[i,j];

        writeln('Toplam matris :', i, '-', j,

                '. eleman :', toplamatris[i,j]);

      end;

  readkey;

end.