13 lines
370 B
ObjectPascal
13 lines
370 B
ObjectPascal
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.
|
|
|