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

zverok21rus zverok21rus    3   04.12.2019 10:20    2

Ответы
Oksana321 Oksana321  10.10.2020 18:20

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика