Найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах
Var
n,sum,i,b:integer;
begin
read(n);
sum:=0;
for i:=1 to n do
begin
read(b);
if(i mod 2=0)and(b mod 10=3)then sum:=sum+b;
end;
write(sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
