1. 

   Zelen New Member

   Помогите пожалуйста!!! В заданной последовательности целых чисел определите сумму элементов кратных10!

    

   Zelen, 2 фев 2010

   #1
2. 

   Jimmy Bullet New Member

   var n, i, s, a: integer;
   begin
     s:=0;
     writeln('Введите количество чисел');
     readln(n);
     for i:=1 to n do 
       begin
         readln(a);
         if a mod 10=0 then s:=s+a;
       end;
     writeln(s);
   end.
         

    

   Jimmy Bullet, 2 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня