Одномерные массивы

[QEEN]

до меня не доходит как решить такую задачку на массивы: в одномерном массиве,состоящем из 35 вещественных элементов вычислить: а)произведение элементов массива с четными номерами.
б)сумму элементов массива расположенных между первым и последними нулевыми элементами. кто-нибудь может мне с этим помочь,пожалуйста?

[alex_fcsm]

1) В цикле проверяете если номер элемента четный, то перемножаете
2) Находите 2 индекса и производите суммирование

Это в общих чертах. Что уже сделали, от чего можно оттолкнуться?

[QEEN]

Если честно ничего. вообще эту тему не понимаю!

[Stilet]

Ну вот смотри:
Есть массив:

a:array[1..35] of real;

И пересенка:

Sum:real;i:integer

В цикле:

for i:=1 to 35 do...

Проверяеш на четность

If i mod 2 =0 then // a[i] стоит на четной позици и его нужно прибавить к суме.

[Gongled]

Напишу готовое. Но с пояснениями.

program z1;
{ Подключаем модуль для очистки экрана }
uses CRT;
const
{ Число элементов }
n = 35;

var
{ Объявляем массив }
a : array[1..n] of real;
{ Счётчики цикла }
i, j, k : integer;
{ Переменные для произведения и суммы }
pr, sum : real;

begin
{ Очищаем экран }
clrscr;

{ Начальные присваивания }
pr := 1;
sum := 0;

for i:=1 to n do
begin
{ Считываем элементы}
read(a[i]);

   { Если i чётное, то умножаем }
   if (i mod 2 = 0) then
      pr := pr * a[i];

{ Поиск позиции последнего нуля }
if (a[i] = 0) then j:=i;
end;

for i:=n downto 1 do
begin
     { Поиск позиции первого нуля }
     if (a[i] = 0) then k:=i;
end;

{ Подсчёт суммы }
for i:=k+1 to j-1 do
begin
     sum := sum + a[i];
end;

{ Вывод полученных значений }
writeln('sum = ', sum);
writeln('pr = ', pr);

end.

P.S. Искать позиции нулей можно и иначе. Бежим цикл, и сверяем с нулём. Если нашли, то break.

[QEEN]

Большое спасибо!!!