Дан массив из 7 чисел, которые вводятся с клавиатуры, Вывести на экран значения элементов массива. Сосчитать произведение всех ненулевых элементов массива.
Pascal Abc.net
Ответы
Ответ дал:
0
Полная глупость: вводить с клавиатуры данные и тут же их выводить.
// 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
// 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
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад