[lmikle]

Сообщение от klik09

Всем привет! Народ срочно помогите мне с 1 заданием:

Вычислить среднее арифметическое, наименьшее значение среди положительных элементов и произведение отрицательных в массиве D(n). n<=25. Вывести массив, среднее арифметическое, наименьшее значение и произведение.

Ну а сам что? Это же элементарно.

Код:

var
  I  : Integer;
  A : Array [1..25] Of Integer;
  M, C, S, P : Integer;
begin
  // Генерируем массив случайных чисел -50..50
  For I := 1 To 25 Do A[i] := Random(101) - 50;

  // Инициализируем счетчики
  M := A[1];
  C := 0;
  S := 0;
  P := 1; 

  // Считаем.
  For I := 1 To 25 Do
    Begin
      If A[i] >= 0 
        Then // положительное
           Begin
              Inc(C);
              S := S + A[i];
              If A[i] < M Then M := A[i];
           End
        Else // отрицательное
          P := P * A[i];
    End;

  // Вывод
  WriteLn('Min = ',M);
  If C = 0 Then WriteLn('Avg = N/A') Else WriteLn('Avg = ',S/C);
  WriteLn('Mul = ',P);
end;