Bonjour

J'ai un programme qui donne le max / min moyen dans un tableau.
J'ai fait ça mais où est le problème (3 heures déjà sur ce problème) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program max_min ;
 
uses wincrt ;
 
function maximum (n:integer; t: array [0..100] of real) :real;
var
  max:real;
  i:integer;
begin
  max:=t[1] ;
  for i:=2 to n do
    begin ;
      if t[i] > max then
        max:= t[i] ;
      maximum:= max;
    end;
end;
 
function minimum (n:integer ; t: array [0..100] of real) :real;
var
  min:real;
  i:integer;
begin
  min:=t[1];
  for i:=2 to n do
    begin
      if t[i] < min then
        min := t[i] ;
      minimum:= min;
    end;
end;
 
begin
  repeat
    write('donner les nombres des eleves : '); readln(n);
  until n in [5..30] ;
  for i:=1 to n do
    begin
      write('donner le moyen de eleve : '); readln(t[i]);
    end;
  maximum(n,t);
  minimum(n,t);
  writeln(max:2:2);
  writeln(min:2:2);
end.
thanks