Program ex; var i, a, k, sa: integer; begin k := 1; sa := 0; for i := 1 to 6 do begin read(a); k := k * a; sa := sa + a; end; writeln('Произведение : ', k); write('Среднее арефметическое : ', sa / 6)end.
begin k := 1; sa := 0; for i := 1 to 6 do begin read(a); k := k * a; sa := sa + a; end; writeln('Произведение : ', k); write('Среднее арефметическое : ', sa / 6) end.
Answers & Comments
Verified answer
Program ex;var i, a, k, sa: integer;
begin k := 1; sa := 0; for i := 1 to 6 do begin read(a); k := k * a; sa := sa + a; end; writeln('Произведение : ', k); write('Среднее арефметическое : ', sa / 6)end.
var
i, a, k, sa: integer;
begin
k := 1;
sa := 0;
for i := 1 to 6 do
begin
read(a);
k := k * a;
sa := sa + a;
end;
writeln('Произведение : ', k);
write('Среднее арефметическое : ', sa / 6)
end.