A practical introduction to Pascal programming language - GIARA

A Practical Introduction to Pascal Programming Language⊡(* Ask the user *)write(’Introduce the number a: ’);readln(a);(* Count *)sum:=0;for i:=1 to N dosum:=sum+matA[i][a]+matA[a][i];sum:=sum-matA[a][a];(* Display *)writeln(’The final value is ’,sum,’.’)end.Exercise 4.13. Create a program that reads a matrix of N × N integers (being N a constant), thenfinds the greater sum of the elements of a row or column.□In this exercise we need to sum the elements of each row and column. Then, we have to findout which one produces the greater sum. Conceptually, it is very similar to the Exercise 4.4 inwhich we had to find the greatest element of a table. In fact, we also have to address the problemof setting maxSum to some initial value.Program 91: Exercise 4.13program c04e13;constN=3;M=5;typeintMatrix=ARRAY[1..N,1..M] OF integer;vari,j:integer;matA:intMatrix;maxSum,currentSum:integer;begin(* Reading the matrix *)writeln(’Introduce the matrix.’);for i:=1 to N dobeginwriteln(’Introduce the row ’,i,’: ’);for j:=1 to M doread(matA[i][j])end;(* Initialize the variable *)maxSum:=-32000;(* Checking rows *)for i:=1 to N dobegincurrentSum:=0;for j:=1 to M docurrentSum:=currentSum+matA[i][j];if (currentSum>maxSum) thenmaxSum:=currentSumend;(* Checking colums *)for j:=1 to M dobegincurrentSum:=0;for i:=1 to N docurrentSum:=currentSum+matA[i][j];78