Question

Помогите, пожалуйста, решить задачу ​

Answer 1

uses math;

var

i,x,s,gs : integer;

begin

   s := 0;

   gs := 1;

   for i := 1 to 4 do

   begin

   readln(x);

   s := s + x;

   gs := gs * x;

   end;

writeln('Среднее арифметическое равно: ',s/4:4:4);

writeln('Среднее геометрическое равно: ',power(gs,1/4):4:4);

end.

37a102db71e1d4cace3f9ab98d1d337c.docx