Sakut,
J'étudie le Pascal pour mon projet scolaire.
J'ai essayé de trouver une solution pour le programme suivant. Je voudrais créer un programme qui affiche un tableau carré de 20 cellules de côté et qui affiche ses valeurs maximale et minimale.
Voici mon code :
J'utilise Dev-Pascal.
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 program arr(i,o); var A1:array[1..20,1..20] of integer ; i,j,min,max : integer; begin for i := 1 to 20 do for j:= 1 to 20 do begin read(A1[i,j]); end; min:=A1[1,1]; max:=A1[1,1]; for i := 1 to 20 do begin for j:= 1 to 20 do begin if A1[i,j]> max then max:=A1[i,j]; if A1[i,j]<min then min:=A1[i,j]; end; end; for i := 1 to 20 do begin for j:= 1 to 20 do write(A1[i,j]:20); writeln; end; writeln('max:=',max); writeln('min:=',min); readln; end.
Le compilateur ne trouve aucune erreur mais lorsque j'exécute le programme et entre les valeurs, à la fin le programme se termine sans afficher quoi que ce soit.
Partager