2022 sector d0

2022/sector/d0/suma/suma.pas

@@ -0,0 +1,22 @@
+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.