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

Question

Информатика

Инна

3 июня, 07:15

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

+2

Ответы (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.

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