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

Question

Информатика

Ксана

9 февраля, 06:11

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

+4

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