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

Question

Информатика

Татуля

4 августа, 07:06

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

+1

Ответы (1)

Знаете ответ?

Радий · 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.