Question

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

Answer 1

Ответ:

var i, n, sum, sum_1, count_1, sum_2, count_2:integer;

begin

for i:=1 to 10 do begin

readln(n);

sum = sum + n;

if n >= 0 then begin

sum_1 = sum_1 + n;

count_1 = count_1 + 1;

end;

if n < 0 then begin

sum_2 = sum_2 + n;

count_2 = count_2 + 1;

end;

end;

writeln('Среднее всех чисел: ', sum/10);

writeln('Среднее всех положительных чисел: ', sum_1/count_1);

writeln('Среднее всех отрицательных чисел: ', sum_2/count_2);

end.

Answer 2

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

pascalCopy code
program AverageCalculator;

var
  i, countPositive, countNegative: integer;
  num, sum, avg, positiveSum, positiveAvg, negativeSum, negativeAvg: real;

begin
  sum := 0;
  positiveSum := 0;
  negativeSum := 0;
  countPositive := 0;
  countNegative := 0;

  writeln('Введите 10 чисел:');

  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(num);

    sum := sum + num;

    if num > 0 then
    begin
      positiveSum := positiveSum + num;
      countPositive := countPositive + 1;
    end
    else if num < 0 then
    begin
      negativeSum := negativeSum + num;
      countNegative := countNegative + 1;
    end;
  end;

  avg := sum / 10;
  positiveAvg := positiveSum / countPositive;
  negativeAvg := negativeSum / countNegative;

  writeln('Среднее арифметическое всех чисел: ', avg:0:2);
  writeln('Среднее арифметическое положительных чисел: ', positiveAvg:0:2);
  writeln('Среднее арифметическое отрицательных чисел: ', negativeAvg:0:2);

  readln;
end.

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