Найти сумму и...

Тема в разделе "Информатика", создана пользователем Angelinna, 22 фев 2010.

  1. Angelinna

    Angelinna New Member

    Найти сумму и среднее арифметическое положительных элементов массива A(N)
     
    Angelinna, 22 фев 2010
    #1
  2. plos

    plos New Member

    var a:array[1..10] of integer;
    i,s,n,k:integer;
    Begin
      read(n);
      for i := 1 to n do begin
        read(a);
        if a>0 then begin
          s:=s+a;
          k:=k+1;
        end;
      end;
     
      writeln(s, s/k);
    End.
     
    plos, 22 фев 2010
    #2

Поделиться этой страницей

Наша группа