:lol: What the procedure/function for working out the biggest/smallest result?
This is the program i am trying to do..and i am supposed to show the user the highest student mark, and the lowest student mark, but i don't know how to.........argh!"

``````program ftn_marks;
{\$APPTYPE CONSOLE}
uses
SysUtils;
const students= 15;
type
Tmarks = array[1..students] of integer;
{PRE: true
POST: Introduce all The Marks}
Procedure initialise(var ftn:Tmarks);
var
i,mark:integer;
begin
writeln('Introduce The Marks For The 20 Students');
for i:=1 to students do
begin
ftn[i]:=mark;
end;
{PRE:true
POST:show results}
procedure Show_results(ftn:Tmarks);
var
i:=integer;
begin
writeln('The Students Marks Are==> ',);
for i:=1 to students do
writeln('student ',i, 'Mark==> ',ftn[i]);
end;
{PRE: true
POST: return Average}
function Average(ftn:Tmarks):real;
var
sum,i:integer
begin
sum;=0;
for i:=1 to students do
sum:=sum+ftn[i];
result:=sum/students;
end;
{PRE: true
POST: initialise all the marks to 0}
procedure initialise_marks(var ftn:Tmarks);
var i:integer;
begin
for i:=1 to students do
begin
ftn[i]:=0;
end;
end {initialise_module};
{PRE: true}
{Post: Introduce the marks}
begin
end;
{PRE: true
POST: show all the marks}
procedure write_marks(ftn:Tmarks);
begin
end;
{PRE: ftn is not empty
POST: average mark for the mdoule}
function average_mark(ftn:Tmarks):real;
var av:real;
std:integer;
begin
av:=0;
for std:=1 to students do
begin
av:=av+ftn[std];
end;
result:=av/students;
end;
{PRE: ftn is not empty
POST: maximum mark}
function max_mark(ftn:Tmarks):integer;
begin
end;
{PRE: ftn is not empty
POST: minimum mark}
function min_mark(ftn:Tmarks):integer;
begin
end;

{PRE: true
POST: menu with all the functionalities}
procedure menu(var ftn:Tmarks; c:char);
begin
case c of
'w','W': write_marks(ftn);
'a','A': average_mark(ftn);
'M': max_mark(ftn);
'm': min_mark(ftn)
else
writeln('error this option has not been recognised');
end;
procedure prompts;
Begin
writeln('Enter r to introduce all the marks');
writeln('Enter w to show all the marks');
writeln('Enter a to calculate  average mark');
writeln('Enter M to calculate maximum mark');
writeln('Enter m to calculate minumum mark');
writeln('Enter q to quit');
end;
var FTN:Tmarks; choice:char;
begin
initialise_marks(FTN);
writeln('Welcome to Course statistics');
writeln ('You have the following options');
while (choice <> 'q') and (choice<> 'Q') do
begin
prompts;
end;
writeln('Bye...');
end``````

;) :idea:

2
Contributors
1