Даны натуральное число n, действительные числа a1, ... , an вычислить a1+ ... +an и...

Question

Даны натуральное число n, действительные числа a1, ... , an вычислить a1+ ... +an и a1a2...an Pascal

Answer 1

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

uses Arrays;

var

n : integer;

sum, mul : real;

a : array of real;

begin

writeln;

n := ReadLnInteger('Введите N: ');

a := CreateRandomRealArray(n);

sum := 0;

mul := 1;

foreach var x in a do

begin

 write(x:4:2, ', ');

 sum += x;

 mul *= x

end;

writeln; writeln;

writeln('Сумма:        ', sum:12:4);

writeln('Произведение: ', mul:12:4)

end.

---