A practical introduction to Pascal programming language - GIARA

Data structuresProgram 78: Exercise 4.3program c04e03;constN=10;typeintMatrix=ARRAY[1..N,1..N] OF integer;vari,j:integer;matA:intMatrix;begin(* 1- Reading the vector *)writeln(’Introduce the matrix.’);for i:=1 to N dofor j:=1 to N dobeginwrite(’Introduce the value at row ’,i,’ and col ’,j,’: ’);read(matA[i][j])end;(* 2- Displaying the values *)for i:=1 to N dobeginfor j:=1 to N dowrite(matA[i][j],’ ’);writelnendend.⊡Exercise 4.4. Create a program that reads a vector of N reals (being N a constant), then finds outits min value, its max value and its mean.□This exercise is solved by following a 2-step scheme. First, we need to read the whole array,for later going trough all the values. Note that the variables minVal and maxVal must be setto some value before analyzing the first position of the array. In this case we set them to themaximum and minimum value an integer can have, respectively, so that they are never taken asfinal values of the variables. Note that the when the first element of the array is checked, bothminVal and maxVal are set to its value.Program 79: Exercise 4.4 (version A)program c04e04;constN=10;typeintVector=ARRAY[1..N] OF integer;vari:integer;myVector:intVector;minVal,maxVal,sum:integer;mean:real;begin(* 1- Reading the vector *)writeln(’Introduce the vector of ’,N,’ elements, splitted by blank spaces.’);for i:=1 to N doread(myVector[i]);(* 2- Obtaining the information *)minVal:=32000;maxVal:=-32000;69