Question

Помогите Написать программу на языке Паскаль для нахождения среднего значения из n введенных целых чисел от 10 до 100

Answer 1

var

   n : integer;

   a : integer;

   s : real;

   

begin

   write('введите количество чисел ');

   readln(n);

   for var i := 1 to n do begin

       write(i,'-е число равно = ');

       readln(a);

       s += a;

   end;

   writeln('среднее значение равно ', s/n);

end.

числа вводим вручную...

Answer 2

Для написания программы на языке Паскаль для нахождения среднего значения из n введенных целых чисел от 10 до 100, мы можем использовать следующий код:

pascalCopy code
program AverageCalculator;

var
  n, i, number, sum: integer;
  average: real;

begin
  sum := 0;

  writeln('Введите количество чисел n:');
  readln(n);

  if (n <= 0) then
  begin
    writeln('Количество чисел должно быть больше нуля.');
    exit;
  end;

  for i := 1 to n do
  begin
    writeln('Введите целое число ', i, ':');
    readln(number);

    // Проверяем, что число находится в диапазоне от 10 до 100
    if (number < 10) or (number > 100) then
    begin
      writeln('Число должно быть в диапазоне от 10 до 100.');
      exit;
    end;

    sum := sum + number;
  end;

  average := sum / n;
  writeln('Среднее значение: ', average:0:2);
end.

Программа запрашивает у пользователя количество чисел n, затем просит ввести n целых чисел. После этого она вычисляет и выводит среднее значение с точностью до двух знаков после запятой. Если пользователь вводит число за пределами диапазона от 10 до 100 или указывает n <= 0, программа выдаст сообщение об ошибке и завершит свою работу.