Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами

Question

Информатика

Кузяха

30 апреля, 15:16

Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами

+1

Ответы (1)

Знаешь ответ?

Андрей · Answer 1

Var

a:array[1 ... 10] of integer;

sum, i:integer;

begin

for i:=1 to 10 do

begin

readln (a[i]);

if i mod 2 = 0 then

sum:=sum+a[i];

end;

writeln (sum);

end.

Надеюсь на "Лучший ответ"