Найти сумму элементов массива с четными номерами, элементы которого заданы датчиком случайных чисел на интервале [-17, 55].

program z1;

var a:array [1..10] of integer;

i,s:integer;

begin

s:=0;

randomize;

write('Массив: ');

for i:= 1 to 10 do  

begin  

a[i]:= random(73)-17;  

write(a[i]:4);  

if i mod 2 = 0 then s:=s+a[i]  

end;

writeln;

writeln('Сумма элементов, с четными номерами, равна: ',s)

end.

Объяснение:

Цикл для:

1) задаём элемент

2) выводим его на экран

3) проверяем чётный ли номер элемента, если да, то считаем сумму

Вывод суммы