How to solve 4.5.1 - 4.5.3

 Program C++ 4.5.1




Program 4.5.2
var
    A; array[1..100] of interger;
    i: integer;
begin
    for i:=1 to 100 do
begin
    A[1]:=i;
   end;
End.



Program C++ 4.5.3