Вычислить произведение элементов,которые не равны нулю и стоящие на нечетных местах

@xap4ehko · Регистрация: 19.12.2018

@ZX Spectrum-128 · 20.12.2018, 19:03

Pascal

p:=1;
k:=0;
for i:=1 to n do
 if (a[i]<>0) and (odd(i)) then
begin
 p:=p*a[i];
 inc(k);
end;
if k<>0 then
writeln(p)
else
writeln('Таких нет');

@xap4ehko 0 / 0 / 0 Регистрация: 19.12.2018 Сообщений: 40
		1
	Вычислить произведение элементов,которые не равны нулю и стоящие на нечетных местах 20.12.2018, 16:59. Показов 1430. Ответов 1 Метки нет (Все метки) Вычислить произведение элементов,которые не равны нулю и стоящие на нечетных местах __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Решение