Найдите суммы элементов массива чётных и нечётных позиций - Pascal ABC

Формулировка задачи:

Найдите суммы элементов массива чётных и нечётных позиций Написать нужно в Pascal Abc

Код к задаче: «Найдите суммы элементов массива чётных и нечётных позиций - Pascal ABC»

textual
var a:array[1..100] of integer; b,c,i,n:integer;
begin
//заполнение массива
writeln('введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
readln(a[i]);
//обработка массива
for i:=1 to n do
if i mod 2 = 0 then b:=b+a[i] else c:=c+a[i];
writeln('сумма чётных - ',b,', сумма нечётных - ',c);
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы