一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方

Question

如题所述

Answer 1

program ex1;
var
a : array[1..10] of integer;
i, s1, s2, s3 , s4 : integer;
begin
for i := 1 to 10 do readln(a[i]);
s1 := 0;
for i := 1 to 10 do s1 := s1 + a[i];
s2 := 1;
for i := 1 to 10 do s2 := s2 * a[i];
s3 := 0;
for i := 1 to 10 do s3 := s3 + a[i] * a[i];
s4 := s1 * s1;
writeln(s1, ' ', s2, ' ', s3, ' ', s4);
end.