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

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

Задать свой вопрос
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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт