[PASCAL] Afișarea suma vectorilor (tablou unidimensional)

[TheVirus]

Descriere: Se dă de la tastatură dimenisiunea și elementele numerelor întregi ale unui vector. Să se afișeze suma vectorilor.
Alte precizari: Acest tip de exercitiu este unul de introducere.

Conținutul programului:

 

uses: crt;

type sir=array [1..100] of integer;

var v:sir;

n,i,s:byte;

begin

clrscr;

write('n= ');

readln(n);

s:=0;

for i:=1 to n do

begin

write('v[',i,']= ');

readln(v);

end;

for i:=1 to n do

s:=s+v;

write('Suma este:', s);

readln

end.

[SwiftBrotherHD]

Multumim de topic, pune dupa readln punct si virgula.