Momath
4 год назад
Дан массив из 7 чисел, которые вводятся с клавиатуры, Вывести на экран значения элементов массива. Сосчитать произведение всех ненулевых элементов массива.Pascal Abc.net
ОТВЕТЫ
Агап
Oct 24, 2020
Полная глупость: вводить с клавиатуры данные и тут же их выводить.
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
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
724
Смежные вопросы:
