Jeśli podaję liczby po spacji to jak zrobić aby można je było do siebie dodać, w pierwszej lini podaję ile liczb ma być sumowanych a w drugiej lini podaję liczby oddzielone spacją.
Np. jeśli podam:
3
2 3 4
to aby je sumowało i pokazywało wynik dla przykładu wynosił by on 9.
VAR
A:ARRAY[1..1000] of byte;
ile,suma,i:integer;
BEGIN
readln(ile);
FOR i:=1 TO ile-1 DO read(A[i]);
readln(A[ile]);
FOR i:=1 TO ile DO suma:=suma+A[i];
writeln(suma);
readln;
END.