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

Question

Информатика

Данило

22 августа, 00:14

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

+2

Ответы (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.