Найти сумму четных по номеру элементов массива и произведение нечетных по номеру

@soRi · Регистрация: 29.03.2013

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

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

@Тамила · 29.03.2013, 22:13

Pascal

var
   a:array[1..100]of integer;
   i,n,pr,sum:integer;
begin
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       write('a[',i,']=');
       read(a[i]);
    end;
   writeln;
   pr:=1;
   sum:=0;
   for i:=1 to n do
    begin
       if i mod 2 = 0 then sum:=sum+a[i]
        else pr:=pr*a[i];
    end;
   writeln('summa=',sum);
   writeln('proizvedenie=',pr);
   readln;
end.

@soRi 0 / 0 / 0 Регистрация: 29.03.2013 Сообщений: 21
		1
	Найти сумму четных по номеру элементов массива и произведение нечетных по номеру 29.03.2013, 21:48. Показов 1192. Ответов 1 Метки нет (Все метки) Найти сумму четных по номеру элементов массива и произведение нечетных по номеру. 0

	29.03.2013, 22:13

Найти сумму четных по номеру элементов массива и произведение нечетных по номеру

Решение