Reorganize

2026-03-02 19:15:17 +02:00
parent 9192716bfb
commit f235a35ebb
610 changed files with 1 additions and 0 deletions
@@ -0,0 +1,13 @@
+program summof30;
+ const n=30;
+ type My=array [1..30] of integer; //ìàññèâ èç 30 öåëûõ ÷èñåë
+ var a: my;
+     s,i:integer;
+   begin
+     WriteLn('ââåäè ',n,' ÷èñåë'); 
+     for i:=1 to n do ReadLn(a[i]);//íå çíàþ ÷òî äåëàåò [i], íî òóò âîîäÿòñÿ ÷èñëà
+     s:=0;
+     for i:=1 to n do s:=s+a[i]; //âñå åùå íå çíàþ [i], íî òóò ÷èñëà ñêëàäûâàþòñÿ
+     WriteLn(s);
+   end.
+