Дан массив из 7 чисел, которые вводятся с клавиатуры, Вывести ** экран значения элементов...

Question

Дан массив из 7 чисел, которые вводятся с клавиатуры, Вывести на экран значения элементов массива. Сосчитать произведение всех ненулевых элементов массива.
Pascal Abc.net

Answer 1

Полная глупость: вводить с клавиатуры данные и тут же их выводить.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('П=',ReadArrReal('Введите 7 чисел:',7).Println.Where(x->x<>0).
      Aggregate(1.0,(x,y)->x*y))
end.

Пример
Введите 7 чисел: 3.5 -18.3 0 14 174.32 -15 0.17
3.5 -18.3 0 14 174.32 -15 0.17
П=398597.4972