Bonjour ! Je dois écrire un programme en pascal qui permet de saisir 1000 entiers dans un tableau T et d'afficher le contenu de toutes les cases de rang multiple de 5. Voici ce que j'ai fait :
Ai-je répondu à la question ? Si non est-ce vous pouvez me proposer une solution ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 program bd; uses crt; var t:array [1..100] of integer; a,c,d,e:integer; const b=5; begin t[a]:=a; for a:=1 to 200 do write('|',a*b); readkey end
Partager