pascal 输入30个正整数,计算它们的和,平方和

pascal
输入30个正整数,计算它们的和,平方和

program sample;
var i,x,s,q:longint;
begin
s:=0;q:=0;
for i:=1 to 30 do begin
read(x);
inc(s,x);
inc(q,sqr(x));
end;
writeln(s);
writeln(q);
end.
s是和
q是平方和

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息