...

View Full Version : [PASCAL] Finding min and max within an array



erjorgito
11-18-2011, 03:21 PM
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
12-12-2011, 07:43 PM
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.



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum