23 lines
503 B
ObjectPascal
23 lines
503 B
ObjectPascal
Program Suma;
|
|
var n, i, S : integer;
|
|
A : array[1..100] of integer;
|
|
Intrare, Iesire : text;
|
|
begin
|
|
{ Citirea datelor de intrare }
|
|
assign(Intrare, 'suma.in');
|
|
reset(Intrare);
|
|
readln(Intrare, n);
|
|
for i:=1 to n do
|
|
readln(Intrare, A[i]);
|
|
close(Intrare);
|
|
{ Calcularea sumei }
|
|
S:=0;
|
|
for i:=1 to n do
|
|
S:=S+A[i];
|
|
{ Scrierea datelor de iesire }
|
|
assign(Iesire, 'suma.out');
|
|
rewrite(Iesire);
|
|
writeln(Iesire, S);
|
|
close(Iesire);
|
|
end.
|