Одномерный массив из N элементов. Найти сумму элементов массива с четными номерами.
Одномерный массив из N элементов. Найти сумму элементов массива с четными номерами.
Гость
Ответ(ы) на вопрос:
Гостьvar
a: array[1..1000] of integer;
i,s,N: integer;
begin
s:=0;
write('Введите N: ');
readln(N);
for i:= 1 to N do begin
readln(a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln('Сумма элементов с четными номерами: ',s);
end.
Гость// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Sчет=',a.Where((x,i)->i.IsOdd).Sum)
end.
Пример
n= 15
10 -12 -5 65 -39 -76 -38 -68 69 87 94 11 -61 -2 -13
Sчет=5
Не нашли ответ?
Похожие вопросы