Предмет: Информатика,
автор: 67sneg
найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: daraelzesser
Предмет: Русский язык,
автор: xachirama2006rrg
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: Lilyagafarova