Remplir un tableau puis afficher le contenu des cases dont le rang est un multiple de cinq

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 :

Code:

---

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

---

Ai-je répondu à la question ? Si non est-ce vous pouvez me proposer une solution ?

Bonjour,

Citation:

---

Envoyé par chanii

Ai-je répondu à la question ? Si non est-ce vous pouvez me proposer une solution ?

---

Non, tu n'as pas répondu.

Non, je ne te propose pas de solution, à part relire et comprendre l'énoncé. :)

Citation:

---

Envoyé par chanii

Je dois écrire un programme en pascal qui permet de saisir 1000 entiers dans un tableau T...

---

Bon courage pour essayer le programme. :)

Sinon, pour remplir le tableau, voici un exemple. Il faut remplacer le point d'interrogation par quelque chose. Mais quoi ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

const N = 1000;   var t: array[1..N] of integer; i: integer;   begin for i := 1 to N do begin ReadLn(?); end; end.

---

Une variante plus reposante (toujours avec un point d'interrogation à remplacer) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

const N = 1000;   var t: array[1..N] of integer; i: integer;   begin Randomize; for i := 1 to N do begin ? := Random(100); (* un nombre au hasard de 0 à 99 *) end; end.

---