Hello and welcome to our community! Is this your first visit?
Enjoy an ad free experience by logging in. Not a member yet? Register.

# Thread: [PASCAL] Finding min and max within an array

1. ## [PASCAL] Finding min and max within an array

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 :
Code:
```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');
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);
end.```
I want to say, the minvalue comes from Array X, but do not know how, can anyone help please?

Thanks

• Try this method instead:

Code:
```{ 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,']');
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.```

•

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•