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

Question

Информатика

Елисавета

20 марта, 03:43

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

+3

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