Предмет: Информатика, автор: 67sneg

найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах

Ответы

Автор ответа: czarkostya
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.
Похожие вопросы
Предмет: Алгебра, автор: daraelzesser
Предмет: Русский язык, автор: xachirama2006rrg
Предмет: Литература, автор: Аноним