Дан массив из 10-ти элементов ,который вводит пользователь.НЕобходимо посчитать сумму элементов с четными и нечетными значениями.Отдельно вывести с четными и нечетными индексами.Паскаль
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
c1,c2,a:integer;
begin
for var i := 0 to 9 do
begin
readln(a);
if a mod 2 = 0 then c1 += a
else c2 += a;
end;
write(c1,' - ',c2);
end.