Автор: Bronislav

Bronislav — Tue, 20 Feb 2018 09:46:19 +0000

begin
  var n:= ReadInteger('Введите количество чисел в наборе:');
  writeln('Введите ', n, ' вещественных чисел');
  var a:= ReadArrReal(n);
  writeln('Сумма чисел: ',a.Sum);
  write('Произведение чисел: ', a.Aggregate(1.0, (p, x) -> p * x))
end.

begin

var n:= ReadInteger('Введите количество чисел в наборе:');

writeln('Введите ', n, ' вещественных чисел');

var a:= ReadArrReal(n);

writeln('Сумма чисел: ',a.Sum);

write('Произведение чисел: ', a.Aggregate(1.0, (p, x) -> p * x))

end.

Комментарии: Решаем задачи Абрамян на Паскале. Series4

Автор: Bronislav