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

Question

Информатика

Марта

6 октября, 09:08

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

+3

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

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