Составьте программу вычисления произведения нечетных элементов одномерного массива

@Эля11 · Регистрация: 21.01.2013

Составьте программу вычисления произведения нечетных элементов одномерного массива A(N), заполнив его случайным образом.

@Erea · 08.05.2013, 17:53

Pascal

Program MyProg;
uses crt;
var i, n, proizv: integer;
    A: array [1..100] of integer;
 
begin
clrscr;
readln(n);
proizv:=1;
randomize;
for i:=1 to n do begin
A[i]:=random(10)+1;
write (A[i]:4);
end;
writeln;
for i:=1 to n do begin
if (i mod 2)=1 then proizv:=proizv*A[i];
end;
writeln(proizv);
readln;
end.

@Эля11 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 30
		1
	Составьте программу вычисления произведения нечетных элементов одномерного массива 08.05.2013, 17:47. Просмотров 1802. Ответов 1 Метки нет (Все метки) Составьте программу вычисления произведения нечетных элементов одномерного массива A(N), заполнив его случайным образом. 0

Опции темы

Составьте программу вычисления произведения нечетных элементов одномерного массива

Решение