Pascal: Find Largest and Smallest Values in a List

program largest_smallest;

uses SysUtils;

var my_list:array[1..10] of integer;
i:integer;

procedure largest;
var loop_counter,largestval:integer;
begin
 largestval:=my_list[1];
 for loop_counter := 2 to 10 do
  if my_list[loop_counter] > largestval then
   largestval:=my_list[loop_counter];
 writeln(largestval);
 readln;
end;

procedure smallest;
var loop_counter, smallestval:integer;
begin
 smallestval:=my_list[1];
 for loop_counter := 2 to 10 do
  if my_list[loop_counter] < smallestval then
   smallestval:=my_list[loop_counter];
 writeln(smallestval);
 readln;
end;

begin
 for i := 1 to 10 do
 begin
  writeln('Enter value', i);
  readln(my_list[i]);
 end;
{  //put fixed values in array
my_list[1]:=3;
my_list[2]:=15;
my_list[3]:=8;
my_list[4]:=43;
my_list[5]:=11;
my_list[6]:=65;
my_list[7]:=41;
my_list[8]:=9;
my_list[9]:=17;
my_list[10]:=23;}
 writeln('Press a key to show the largest value');
 readln;
 largest;
 writeln('Press a key to show the smallest value');
 readln;
 smallest;
end.

Back to questions