Question

дан целочисленный масив N состоящий из 15элементов.массив формируется случайными числами из промежутка [0;70].определите сумму элементов с чётными номерами.

Answer 1

Ответ:

var n:array [1..15] of integer;

i,s:integer;

begin

write ('Массив ');

for i:=1 to 15 do

begin

n[i]:=random(71);

write(n[i]:3);

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

end;

writeln;

write ('Сумма элементов с чётными номерами равна ',s)

end.