1. 

   vve70 New Member

   составить программу. Найти сумму элементов K 16 массива

    

   vve70, 16 мар 2010

   #1
2. 

   esposter New Member

   const k = 16;
   var
     a: array[1..k] of integer;
     s, i: integer;
   begin
     for i := 1 to k do begin
       a := random(50);
       write(a, ' ');
       s := s + a;
     end;
     writeln; writeln(s);
   end.
   

    

   esposter, 16 мар 2010

   #2

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

Пароль:

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

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