[PASCAL] Finding min and max within an array

[erjorgito]

Hello, we're learning Arrays and im stuck on how to return the actual number of the array. The code i have so far is below :

program Project1;

uses
crt;

var
  myArray : array[1..5] of integer;
  MinValue, MaxValue, I: Integer;
  a : real;

begin
  for i:= 1 to 5 do
  begin
    writeln('Please enter a value');
    readln(myArray[i]);
  end;
  MinValue:=myArray[1];
  MaxValue:=myArray[1];
  for i:= 1 to 5 do
  if myArray[i] > MaxValue then
  begin
    MaxValue:=myArray[i];
  end;
  if myArray[i] < MinValue then
  begin
    MinValue:=myArray[i];
  end;
writeln(MinValue, MaxValue);
readln();
end.

I want to say, the minvalue comes from Array X, but do not know how, can anyone help please?

Thanks

[kmarlow1216]

Try this method instead:

{ Finding the max & min of an array }
program max_min_array;
uses crt;
type
a=array [1..10] of integer;
var
max,min:integer;
arr:a;
x,i:integer;

begin
for i:=1 to 10 do
begin
clrscr;
writeln;
writeln(' Enter the value of arreay_num[',i:2,']');
readln(arr[i]);
end;

max:=arr[1];
min:=arr[1];
clrscr;
for i:=2 to 10 do
begin
if arr[i] > max then max:=arr[i];
if arr[i] < min then min:=arr[i];
end;

for i:=1 to 10 do
writeln(' array_number[',i:2,']',arr[i]:4);
writeln;
writeln(' Max is: ',max:5);
writeln(' Min is: ',min:5);

writeln;
writeln(' "Enter any number to exit."');
readln(x); { Let's take a look at the result }
end.