Question

Создать массив B размером 25 элементов. 2. Заполнить целыми случайными числами в диапазоне от о до 1000. 3. Найти сумму чисел, стоящих на четных местах, т.е. сложить B[2]+B[4]+B[6]+…B[24] 4. Результат вывести на экран.
ЯЗЫК ПАСКАЛЬ
ПОМОГИТЕ ПРОШУ!!!!!!!!!!!!!!!!!!!!!!
НАДО СРОЧНО!!!!!!!!!!!!!!!!

Answer 1

Ответ:
program z;
var B:array[1..25] of integer;
s,i:integer;
begin
s:=0;
randomize;
for i:=1 to 25 do
begin
B[i]:=random(1001);
write(B[i],' ');
if i mod 2 = 0 then s:=s+B[i]
end;
writeln;
write(s)
end.

Объяснение:
диапазон от 0 до 1000 включительно