Question

Дан массив целых чисел. Написать программу,которая с помощью функции вычисляет сумму и среднее арифметическое положительных элементов одномерного массива ( N<=50) ЯЗЫК - ПАСКАЛЬПомогите пожалуйста!

Answer 1

Ответ:

begin

 var x:=ReadInteger('Введите размер массива: ');

 var a:=ArrRandomInteger(x,1,50);

 a.Println;

 Println('Сумма всех элементов массива: ', a.Sum);

 Println('Среднее арифметическое: ', a.Average);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль для вычисления суммы и среднего арифметического положительных элементов одномерного массива:

pascalCopy code
program SumAndAverage;

const
  N = 50; // Максимальный размер массива

type
  TArray = array[1..N] of integer;

// Функция для вычисления суммы и среднего арифметического положительных элементов массива
function SumAndAveragePositiveElements(arr: TArray; size: integer; var average: real): integer;
var
  sum, count, i: integer;
begin
  sum := 0;
  count := 0;

  // Проходим по всем элементам массива
  for i := 1 to size do
  begin
    // Если элемент положительный, добавляем его к сумме и увеличиваем счетчик
    if arr[i] > 0 then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;

  // Если нет положительных элементов, возвращаем -1
  if count = 0 then
  begin
    Result := -1;
    Exit;
  end;

  // Вычисляем среднее арифметическое положительных элементов
  average := sum / count;

  // Возвращаем сумму положительных элементов
  Result := sum;
end;

var
  arr: TArray;
  size, i: integer;
  avg: real;
  sumPositive: integer;
begin
  // Вводим размер массива
  writeln('Введите размер массива (не более ', N, '): ');
  readln(size);

  // Проверка на корректность размера массива
  if (size <= 0) or (size > N) then
  begin
    writeln('Ошибка: некорректный размер массива!');
    Exit;
  end;

  // Вводим элементы массива
  writeln('Введите элементы массива: ');
  for i := 1 to size do
  begin
    readln(arr[i]);
  end;

  // Вызываем функцию для вычисления суммы и среднего арифметического положительных элементов
  sumPositive := SumAndAveragePositiveElements(arr, size, avg);

  // Выводим результаты
  if sumPositive <> -1 then
  begin
    writeln('Сумма положительных элементов: ', sumPositive);
    writeln('Среднее арифметическое положительных элементов: ', avg:0:2);
  end
  else
  begin
    writeln('Нет положительных элементов в массиве.');
  end;
end.

Программа позволит вам ввести массив целых чисел, после чего она вычислит сумму и среднее арифметическое положительных элементов этого массива и выведет результат на экран.