Question

Решите пожалуйста на Паскале. На все 3 цикла: Найти среднее арифметическое десяти введённых чисел.

Answer 1

var

a, b, c: integer;

s: real;

begin

writeln('Введите три числа');

readln(a);

readln(b);

readln(c);

s := (a + b + c) / 3;

writeln('Среднее арифметическое трех введенных чисел равно ', s);

end.

Answer 2

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

pascalCopy code
program CalculateAverage;

var
  i, n: integer;
  num, sum: real;

begin
  sum := 0;
  
  // Цикл для ввода 10 чисел
  for i := 1 to 10 do
  begin
    Write('Введите число ', i, ': ');
    Readln(num);
    sum := sum + num;
  end;

  // Находим среднее арифметическое
  n := 10; // Количество введенных чисел
  if n > 0 then
  begin
    sum := sum / n;
    writeln('Среднее арифметическое: ', sum:0:2);
  end
  else
    writeln('Ошибка: Вы не ввели числа.');
  
  // Цикл для ввода произвольного количества чисел
  // Закомментируйте предыдущий цикл и раскомментируйте следующий,
  // если хотите, чтобы пользователь мог вводить произвольное количество чисел.
  
  { 
  n := 0; // Обнуляем счетчик чисел
  sum := 0; // Обнуляем сумму
  
  repeat
    Write('Введите число (для завершения введите 0): ');
    Readln(num);
    
    if num <> 0 then
    begin
      sum := sum + num;
      n := n + 1;
    end;
  until num = 0;
  
  if n > 0 then
  begin
    sum := sum / n;
    writeln('Среднее арифметическое: ', sum:0:2);
  end
  else
    writeln('Ошибка: Вы не ввели числа.');
  }
end.

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