Question: what is the reault from this fortran code PROGRAM Q3_FIND RESULTS IMPLICIT NONE REAL, DIMENSION (4,4):: A REAL :: P, S INTEGER :: 1, J
PROGRAM Q3_FIND RESULTS IMPLICIT NONE REAL, DIMENSION (4,4):: A REAL :: P, S INTEGER :: 1, J DO 1-1,4 DO J-1,4 A(1,J) - I+J END DO; END DO P-1. : S=0. DO 1-1,2 DO J-1, 5-1 SS + A(1,J) P-PA(1,J) END DO ; END DO PRINT "(2(T5, A, F8.2, 0))", "P=",, "S="SEND PROGRAM Q3_FIND_RESULTS
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
