A practical introduction to Pascal programming language - GIARA

A Practical Introduction to Pascal Programming Language⊡writeln(’Introduce the vector of ’,N,’ elements, splitted by blank spaces.’);(* First pass computing the mean *)mean:=0;for i:=1 to N dobeginread(myVector[i]);mean:=mean+(myVector[i]/N)end;(* Second pass computing the standard deviation *)std:=0;for i:=1 to N dostd:=std+( (sqr(myVector[i]-mean))/N);std:=sqrt(std);writeln(’The mean is ’,mean:3:3,’ and the standard deviation is ’,std:3:3,’.’)end.Exercise 4.6. Create a program that reads a vector A of N reals (being N a constant), and creates anew vector so that at every position i it contains the sum of all the values of A up to that position.□Initially, this problem is solved by using a double loop. First, we have to read the vector A.Then, for each position i, we perform an iteration up to that position accumulating the valuesstored in the vector A. Note that it is necessary a good practice to initialize the values in thevector B to 0.Program 83: Exercise 4.6 (Version A)program c04e06;constN=5;typeintVector=ARRAY[1..N] OF integer;vari,j:integer;A,B:intVector;begin(* Reading *)writeln(’Introduce the vector of ’,N,’ elements, splitted by blank spaces.’);for i:=1 to N dobeginread(A[i]);end;(* Accumulating *)for i:=1 to N dobeginB[i]:=0;for j:=1 to i doB[i]:=B[i]+A[j]end;(* Accumulating *)write(’The values in the vector are: ’);for i:=1 to N dowrite(B[i],’ ’);end.The exercise in the past form is not very efficient. Every time we increase the value of i, werecalculate the sum of all the values up to i-1. However, that sum is already stored in B[i].Hence, the solution can be simplified (and enhanced) by making use of such values72