Question

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

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(20);
• Println('Ср. положительных:',a.Where(x->x>0).Average);
• Println('Ср. отрицательных:',a.Where(x->x<0).Average);
• Println('Ср. всех:',a.Average);
• end.

Пример работы:

Answer 2

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

pascalCopy code
program CalculateAverages;

var
  positiveSum, negativeSum, totalSum, positiveCount, negativeCount, totalCount, i: integer;
  number: real;

begin
  positiveSum := 0;
  negativeSum := 0;
  totalSum := 0;
  positiveCount := 0;
  negativeCount := 0;
  totalCount := 0;

  for i := 1 to 20 do
  begin
    writeln('Введите число ', i, ': ');
    readln(number);
    
    totalSum := totalSum + number;
    totalCount := totalCount + 1;
    
    if number > 0 then
    begin
      positiveSum := positiveSum + number;
      positiveCount := positiveCount + 1;
    end
    else if number < 0 then
    begin
      negativeSum := negativeSum + number;
      negativeCount := negativeCount + 1;
    end;
  end;

  if positiveCount > 0 then
    writeln('Среднее арифметическое положительных чисел: ', positiveSum / positiveCount)
  else
    writeln('Положительных чисел не было введено.');

  if negativeCount > 0 then
    writeln('Среднее арифметическое отрицательных чисел: ', negativeSum / negativeCount)
  else
    writeln('Отрицательных чисел не было введено.');

  writeln('Среднее арифметическое всех чисел: ', totalSum / totalCount);

end.

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