Question

Программа в паскале: в массиве из n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных. for i:=1 to n do

Answer 1

Ответ:

раз массив уже дан, то:

...

var count_pl, count_min, sum_pl, sum_min: integer;

begin

count_pl:=0;

count_min:=0;

sum_pl:=0;

sum_min:=0;

for i:=1 to n do begin

if a[i] > 0 then begin

count_pl:= coun_pl + 1;

sum_pl:= sum_pl + a[i];

end

else begin

count_min:= count_min + 1;

sum_min:= sum_min + a[i];

end;

end;

writeln('Среднее положительное: ', sum_pl/count_pl);

writeln('Среднее отрицательное: ', sum_min/count_min);

end.

Answer 2

Конечно, я помогу вам с написанием программы на Pascal для нахождения среднего арифметического отрицательных и положительных элементов в массиве. Вот ваша программа:

pascalCopy code
program CalculateAverages;

const
  n = 10; // количество элементов в массиве

var
  arr: array[1..n] of integer;
  i, countPos, countNeg, sumPos, sumNeg: integer;
  avgPos, avgNeg: real;

begin
  // Здесь вы можете заполнить массив arr какими-либо значениями
  // или же принять их от пользователя с помощью цикла for

  countPos := 0;
  countNeg := 0;
  sumPos := 0;
  sumNeg := 0;

  for i := 1 to n do
  begin
    if arr[i] > 0 then
    begin
      sumPos := sumPos + arr[i];
      Inc(countPos);
    end
    else if arr[i] < 0 then
    begin
      sumNeg := sumNeg + arr[i];
      Inc(countNeg);
    end;
  end;

  if countPos > 0 then
    avgPos := sumPos / countPos
  else
    avgPos := 0;

  if countNeg > 0 then
    avgNeg := sumNeg / countNeg
  else
    avgNeg := 0;

  writeln('Среднее арифметическое положительных элементов: ', avgPos:0:2);
  writeln('Среднее арифметическое отрицательных элементов: ', avgNeg:0:2);
end.

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