Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 2 of 2
  1. #1
    New to the CF scene
    Join Date
    Nov 2011
    Posts
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts

    [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');
        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

  • #2
    New to the CF scene
    Join Date
    Dec 2011
    Posts
    4
    Thanks
    2
    Thanked 0 Times in 0 Posts
    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,']');
    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.
    Last edited by WA; 12-13-2011 at 07:03 AM.


  •  

    Posting Permissions

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