var
S,SA:real;
i,k:integer;
begin
S:=0;
SA:=0;
for i:=4 to 32 do
S:=S+i;
k:=k+1;
end;
SA:=S/k;
write('Sum = ',S,' Arithmetic mean = ',SA);
end.
Объяснение:
var
S,SA:real;
i,k:integer;
begin
S:=0;
SA:=0;
for i:=4 to 32 do
begin
S:=S+i;
k:=k+1;
end;
SA:=S/k;
write('Sum = ',S,' Arithmetic mean = ',SA);
end.
Объяснение: