Случайным образом заполнить массив из 10 элементов целыми числами из промежутка [-5..10]. Найдите сумму элементов, стоящих на четных позициях.
Случайным образом заполнить массив из 10 элементов целыми числами из промежутка [-5..10]. Найдите сумму элементов, стоящих на четных позициях.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a := ArrRandom(10, -5, 10);
writeln(a);
var i:=1;
var s:=0;
while i<=9 do begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы