Question

Найти среднее арифметическое всех положительных элементов одномерного массива. В Delphi. 

Answer 1

Const
  n = 30;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  s := 0;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:4);
    if a[i] > 0 then s := s + a[i]
  end;
  writeln;
  writeln('Сумма положительных элементов равна ', s)
end.

Тестовое решение:

Исходный массив
 -17  -8  11 -47  30 -32  18 -15 -36  18  -3  45  11  44 -14 -33  13 -26  -8 -31 -42  45  -9   2  42  48   6  10 -12  27
Сумма положительных элементов равна 370

Answer 2

Решение во вложениях. Удачи.

Answer 3

Вот пример кода на Delphi, который находит среднее арифметическое всех положительных элементов в одномерном массиве:

delphiCopy code
program AveragePositiveElements;

var
  arr: array of Integer;
  i, count, sum: Integer;
  average: Double;
begin
  // Заполняем массив значениями
  SetLength(arr, 10);
  arr[0] := 1;
  arr[1] := -2;
  arr[2] := 3;
  arr[3] := -4;
  arr[4] := 5;
  arr[5] := -6;
  arr[6] := 7;
  arr[7] := -8;
  arr[8] := 9;
  arr[9] := -10;

  // Инициализируем переменные
  count := 0;
  sum := 0;

  // Считаем сумму положительных элементов и их количество
  for i := 0 to Length(arr) - 1 do
  begin
    if arr[i] > 0 then
    begin
      sum := sum + arr[i];
      Inc(count);
    end;
  end;

  // Вычисляем среднее арифметическое
  if count > 0 then
    average := sum / count
  else
    average := 0;

  // Выводим результат
  Writeln('Среднее арифметическое положительных элементов: ', average);

  Readln;
end.

В этом примере предполагается, что массив содержит 10 элементов. Вы можете изменить размер массива и заполнить его своими значениями, в зависимости от вашей конкретной задачи. После выполнения программы будет выведено среднее арифметическое положительных элементов.