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

@net_haker1 · Регистрация: 02.10.2013

Author24 — интернет-сервис помощи студентам

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

@grikukan · 22.12.2013, 11:33

Pascal

var p,c,N:integer;
a:array[1..30000] of integer;
begin
read(N);
for c:=1 to N do begin
read(a[c]);
if (a[c] mod =1) and (c mod 2 =0) then p:=p*a[c];
end;
writeln;
writeln;
writeln(p);
end.

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Определить произведение нечетных по значению элементов, стоящих на четных номерах 21.12.2013, 23:42. Показов 1497. Ответов 1 Метки нет (Все метки) Определить произведение нечетных по значению элементов, стоящих на четных номерах. 0

	22.12.2013, 11:33

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

Решение