Дан массив из 10 чисел. Найти творение всех нулевых элементов этого

Дан массив из 10 чисел. Отыскать творенье всех нулевых элементов этого массива.

Задать свой вопрос
Костян Гладов
это на паскаль делать надобно
2 ответа

PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(10, -5, 5);

 a.Println;

 a.Where(t -gt; t = 0).Aggregate(1, (p, q)-gt; p * q).Println

end.

-4 -4 -2 -5 -2 0 -5 -2 -3 0

0

____________________
Алеша Мотыгулин
Const m=100; var arr:array[1..m] of real; size:integer; opNull:real; i:integer; begin readln(size); for i:=1 to size do read (arr[i]); opNull:=1; for i:=1 to size do if (arr[i]=0) then opNull:=opNull*arr[i]; writeln(opNull); end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт