Написать программу на языке Паскаль, где пользователь вводит с клавиатуры 99 элементов массива, а программа рассчитывает сумму значений элементом при условии четности индекса элемента и значения этого элемента

Question

Информатика

Стеня

17 ноября, 21:45

Написать программу на языке Паскаль, где пользователь вводит с клавиатуры 99 элементов массива, а программа рассчитывает сумму значений элементом при условии четности индекса элемента и значения этого элемента

+4

Ответы (1)

Знаете ответ на вопрос?

Ермил · Answer 1

Var

i, sum: integer;

ar: array[1 ... 99]of integer;

begin

sum : = 0;

for i : = 1 to 99 do

begin

read (ar[i]) ;

if (i mod 2 = 0) and (ar[i] mod 2 = 0) then sum : = sum + ar[i];

end;

write (sum) ;

end.