Printing an array as an ArrayType in Pascal

368 Views Asked by At

This program is supposed to sort an array and fill it with random integers from 1 to 1000. It needs to find the maximum value and print the array. It should print the array in two ways: ARRAY OF INTEGER and ArrayType. I need help to print this array in ArrayType. I am not super familiar with Pascal and my assignment is to print this array with ArrayType as a parameter. This is my code I have so far:

PROGRAM SortingAlgorithm;

Var intArray : array[1..20] OF INTEGER;
Var i, j, index : INTEGER;

PROCEDURE Sort(intArray : ARRAY OF INTEGER; size : INTEGER);
BEGIN
   FOR i := 2 to 20 do
   BEGIN
      index := intArray[i];
      j := i;
      WHILE ((j > 1) AND (intArray[j-1] > index)) do
      BEGIN
         intArray[j] :=intArray[j-1];
         j := j - 1;
      END;
      intArray[j] := index;
   END;
END;

PROCEDURE fillArray(var a,b : integer);
VAR temp : INTEGER;
BEGIN
    temp := a;
    a := b;
    b := temp;
END;
BEGIN
  FOR i := 1 to 20 do
    intArray[i] := i;
  FOR i := 1 to 20 do
    fillArray(intArray[i],intArray[random(20)+1]);
END.

PROCEDURE findMax(intArray : ARRAY OF INTEGER; size : INTEGER);
VAR max : INTEGER;
begin
     max := 1;
     FOR i := 2 to size do
     BEGIN
         IF intArray[i] > intArray[max] THEN
         max:=i;
     END;
END;

PROCEDURE printArray(intArray : ARRAY OF INTEGER; size : INTEGER);
BEGIN
    FOR i := 1 to 20 do
        Writeln(intArray[i]);
END;

PROCEDURE printArray2();
BEGIN

END;


BEGIN
    fillArray (intArray);
    printArray (intArray);
    printArray2 (intArray);
    largestValue := findMax (intArray);
    WriteLn (‘The largest value is ‘, largestValue);
    sort (intArray);
    printArray (intArray);
END.

printArray2 is for the ArrayType parameter. This is all the information I was given for this program, I'm not sure what printing with a parameter of ArrayType means. Any help is appreciated. Thanks.

0

There are 0 best solutions below