[PASCAL] Esercizio: albero binario in un vettore

[yagami1992]

Devo fare un albero binario in vettore come nella foto. devo fare 2 procedure 1:leggi i numeri e 2:scriva i numeri. vi prego ditemi se l`ho fatto bene.

--------------------------------

program stringa;
const n=5;
Type albero= array [1..n] of integer;
var A:albero;
procedure leggi;
var i:integer;
begin
for i:=1 to n do
readln(A[i]);
end;
procedure scrivi;
var i:integer;
begin
for i:=1 to n do
write(' ',A[i]);
end;
begin
Leggi;
scrivi;
readln;
end.


-------------------------

[alka]

Originariamente inviato da yagami1992
Devo fare un albero binario in vettore come nella foto. devo fare 2 procedure 1:leggi i numeri e 2:scriva i numeri. vi prego ditemi se l`ho fatto bene.

Come ti è già stato detto qui, il forum non è il tuo compilatore e verificatore personale: lancia il tuo programma e verifica se funziona; in caso negativo, o in caso di errore, spiega qual è e saremo ben felici di darti una mano a correggere e migliorare il tuo codice.

Non è però corretto postare codice senza commenti e invitare altri utenti a compilarlo e verificarlo per te.