Дан массив из 15 элементов,заполненный случайными числами, найти сумму элементов стоящих...

Question

Дан массив из 15 элементов,заполненный случайными числами, найти сумму элементов стоящих на нечётных местах

Answer 1

Var
a: array [1..1000] of integer;
i,j,n,k:integer;
begin
k:=0;
write ('количество чисел');
read(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (i mod 2)=1 then
k:=k+a[i];
end;
for i:=1 to n do
writeln (a[i]);
write (k);
end.

Comments

Откуда 1000, 100 и 2?

---

1000 максимальная размерность масива. 100 это случайные числа до 100. 2 это остаток от деления на 2