[konandz]

المشاركة الأصلية كتبت بواسطة حذيفة بن اليمان

السلام عليكم

البرنامج الأول: برنامج يقرأ مصفوفتين ويمنحك مجموعهما:

program ch4_program13;  
var  
  a, b, c, d: Array [1..3, 1..4] of integer;
  i, j: Integer;
begin  
  for  i:=1 to 3 do
  for  j:=1 to 4 do
    begin  
      readln (a [i, j]);  
      readln (b [i, j]);  
    end ;  
  for  i:=1 to 3 do
  for  j:=1 to 4 do
    begin  
      c [i, j]:=a [i, j] + b [i, j];  
    end ;  
  for  i:=1 to 3 do
    begin  
      for  j:=1 to 4 do
        write(c [i, j]:6);  
      writeln;  
    end ;
    readln;readln;
end

.

جاري عمل البرنامج الثاني الخاص بضرب مصفوفتين إن شاء الله

بارك الله فيك أخي الفاضل