Pascal in Delphi:help

[gokan]

Ciao, ho bisogno di un aiutino per un problemino facile (in apparenza per me).
Dovrei scrivere un programmino in pascal, che memorizzati in due vettori a e b della stessa lunghezza dei valori interi, calcoli la somma degli elementi con lo stesso indice, la salvi nel vettore c e visualizzi a,b,c.
Io ho scritto questo:

program somma_vett;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a, b, c: array[1..6] of integer;
i, j, k: integer;


begin
writeln('SOMMA VETTORI');
writeln;

i:=1; j:=1; k:=1;
repeat
write('Inserisci il ',i, '-mo valore in a: ');
readln(a[i]);
i:=i+1;
write('Inserisci il ',j, '-mo valore in b: ');
readln(b[j]);
j:=j+1;

c[k]:=a[i]+b[j];
writeln('c:',c[k]);
k:=k+1;
until not((i<=6)AND(j<=6)AND(k<=6));

readln;
end.

Il ciclo funziona ma non mi compie la somma,inoltre serebbe più corretto utilizzare un ciclo for quando si conosco le dimensioni dell'array.
Ho provato con:

for i:=1 to 6 do
for j:=1 to 6 do
for k:=1 to 6 do
begin
---------------
---------------
end;

ho problemi con il ciclo.

[badaze]

Ti serve solo un indice... i x esempio.

[gokan]

Originariamente inviato da badaze
[B]Ti serve solo un indice... i x esempio.

Come indici uso già i,j,k:)

[marcus81]

nn funziona xkè quando vai a fare la somma hai gli indici incrementati...
fallo con due cicli for separati uno x gli inserimenti e uno x la somma...

[badaze]

Originariamente inviato da gokan
[B]

Come indici uso già i,j,k:)


i:=1;
repeat
write('Inserisci il ',i, '-mo valore in a: ');
readln(a[i]);

write('Inserisci il ',i, '-mo valore in b: ');
readln(b[i]);

c[i]:=a[i]+b[i];
writeln('c:',c[i]);
i:=i+1;
until not(i<=6);

[gokan]

Originariamente inviato da badaze
[B]


i:=1;
repeat
write('Inserisci il ',i, '-mo valore in a: ');
readln(a[i]);

write('Inserisci il ',i, '-mo valore in b: ');
readln(b[i]);

c[i]:=a[i]+b[i];
writeln('c:',c[i]);
i:=i+1;
until not(i<=6);

Hai ragione, non c'è bisogno di usare tutti quegli indici, ne basta 1, tanto i vettori alla fine sono diversi.
Grazie