Найти сумму элементов массива с четными номерами содержащего 17 элементов. Элементы...

Question

Найти сумму элементов массива с четными номерами содержащего 17 элементов. Элементы вводятся с клавиатурЫ. Решите пожалуйста на Паскале

Answer 1

program Massiv;
var mas: array[1..17] of integer;
i,Sum: integer;
begin
Sum:=0;
for i:=1 to 17 dobegin
writeln('Vvedite chisla');
read(mas[i]);
if mas[i] mod 2 = 0
then Sum:=Sum+mas[2]+mas[4]+mas[6]+mas[8]+mas[10]+mas[12]+mas[14]+mas[16];
end;
writeln('Summa= ', Sum);
readln(Sum);
end.

---

Comments

Прошу прощения, в коде есть ошибочные строки. Попробую переделать.

---

Вот так правильно:

program Massiv;
var mas: array[1..17] of integer;
i,Sum: integer;
begin
Sum:=0;
for i:=1 to 17 do begin
writeln('Vvedite chisla');
read(mas[i]);
if i mod 2 = 0
then Sum:=Sum+mas[i];
end;
writeln('Summa= ', Sum);
readln(Sum);
end.