Дан целочисленный массив из 30 элементов. Числа лежат в интервале от -500 до 500. Опишите на языке Паскаля алгоритм, который находит среднее арифметическое всех чисел, которые кратны первому элементу. Гарантируется, что первый элемент положительный. 

  • var
      i, sum, n : integer;
      a : array [1..30] of integer;
    begin
      sum := 0;
      n := 0;
      for i := 1 to 30 do read (a[i]);
      for i := 1 to 30 do
        if a[i] mod a[1] = 0 then
        begin
          n := n + 1;
          sum := sum + a[i];
        end;
      write (sum / n);
    end.



See also: