Напишите программу нахождения суммы элементов массива а[1 ... 15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100

Question

Информатика

Иляха

24 декабря, 17:37

Напишите программу нахождения суммы элементов массива а[1 ... 15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100

+1

Ответы (1)

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

Симоня · Answer 1

Var

a:array [1 ... 15] of integer;

i, s:integer;

begin

for i: = 1 to 15 do

a[i]: = Random (0,100) ;

writeln (a) ;

for i:=1 to 15 do

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

writeln (s) ;

end.