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

@CyberUser_ · Регистрация: 23.06.2015

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

Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы, вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах. Задачу решить для следующего набора данных: Х(5, 9, -1, -8, 3, -6, 10, 6)

@kot96 · 23.06.2015, 17:32

Pascal

program ex;
type vector=array[1..100]of integer;
var a:vector;
    i,n,s,p:integer;
 
begin
s:=0;p:=1;
write('количество элементов массива: ');readln(n);
for i:=1 to n do
begin
write('введите элемент: ');
readln(a[i]);
end;
write('массив: ');
for i:=1 to n do
write(a[i]:3);
writeln();
for i:=1 to n do
if (i mod 2 = 0)then s:=s+a[i]
else p:=p*a[i];
writeln('сумма элементов стоящих на четных местах: ',s);
writeln('произведение элементов стоящих на нечетных местах: ',p);
end.

@CyberUser_ 0 / 0 / 0 Регистрация: 23.06.2015 Сообщений: 17
		1
	Вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах 23.06.2015, 17:03. Показов 4241. Ответов 1 Метки нет (Все метки) Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы, вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах. Задачу решить для следующего набора данных: Х(5, 9, -1, -8, 3, -6, 10, 6) 0

	23.06.2015, 17:32

Опции темы

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

Решение