Discussion :

[doubs]

BONJOUR
Je cherche une aide pour un programme qui met à zero les elements diagonaux d'un tableau à deux dimensions en pascal.

[Tuxico]

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
var
  tab : array[1..10][1..10] of integer;
  i : integer;
 
begin 
 
i := 1;
 
while(i<=10) do
begin
  tab[i][i] := 0;
  i := i + 1;
end;   
 
end.

[Juju_41]

Le end; du milieu est en trop sinon ce programme convient très bien

On peut également faire une boucle for à la place du while mais ça revient au même.