Calculer le max de chaque ligne d'un tableau puis le min de ces max
Salut ;)
Voilà, j'ai un petit problème avec ce programme en Turbo Pascal (un programme qui permet de calculer le max de chaque ligne et après le min de ces max). Ce qu'il y a, c'est que quand j'exécute, quand j'entre les valeurs max de chaque ligne en premier le programme ne les affiche pas mais si j'entre ces valeurs au milieu ou à la fin ils seront affichés .....
Voici mon programme.
Vous pouvez essayer de l'exécuter en entrant ces valeurs :
5 8 4
3 9 7
2 1 6
et il va s'exécuter normalement ; au contraire, si vous entrez ces valeurs :
8 5 4
9 3 7
2 1 6
vous remarquez la différence : il n'y a que le 6 qui apparaît ......
Code:
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
| progiram heh;
uses crt;
var [1..10,1..10] of integer; i,i:integer;
max,min:array[1..100] of integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do begin
read (t[i,j]);
end;
for i :=1 to 3 do begin
max[i]:=t[i,1];
end;
for i:=1 to 3 do
for j :=2 to 3 do begin
if t[i,j]>max[i] then begin max[i]:=t[i,j];
write('le max est', ' ',max[i]);
end; end;
min[i]:=max[1];
for i:=1 to 3 do begin
if min[i]>max[i] then min(i]:=max[i];
write(le min des max est', ' ',min [i]);
end;
readln;readln;
end. |
Merci pour votre aide :D
