Question

Дан одномерный массив вещественных чисел
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
Надо программу написать в паскале

Answer 1

Ответ:

var a[1..10] of integer;

c, i:integer;

begin

c:=0;

for i:=1 to 10 do a[i]:= random(10);

for i:=1 to 10 do

if (i mod 2 = 0) then c:= c + a[i];

write(c);

end.