Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  GOOD
Language: PASCAL
Code:
VAR
I,J,SUM:INTEGER;
X,A,B:ARRAY[1..3,1..3] OF INTEGER;
 BEGIN
  FOR I:=1 TO 3 DO
   BEGIN
    FOR J:=1 TO 3 DO
     READ(A[I,J]);
   END;
   FOR I:=1 TO 3 DO
    BEGIN
     FOR J:=1 TO 3 DO
      READ(B[I,J]);
    END;
    SUM:=0;
    FOR I:=1 TO 3 DO
     BEGIN
      FOR J:=1 TO 3 DO
       X[I,J]:=SUM+((A[I,J])*(B[I,J]));
     END;
    FOR I:=1 TO 3 DO
     BEGIN
      FOR J:=1 TO 3 DO
      WRITELN(X[I,J]);
      END;
      READLN;
      END.     
Comments: