Question

Найти средне арифметическое элементов массива из 10 чисел. (С полным ответом! Pascal ABC)

Answer 1

const

 size = 10;

type

 vector = array of integer;

var

 arr:vector;

function average(arr:vector):real;

var sum:=0;

begin

 for var i:=0 to length(arr)-1 do

   sum:=sum + arr[i];

 average:=sum / length(arr);

end;

begin

 SetLength(arr, size);

 write('Заполним массив 10 числами: ', #10);

 for var i:= 0 to size-1 do

   begin

     arr[i]:=random(25);

     write(arr[i], ' ');

   end;

  write(#10, 'Среднее арифметическое = ', average(arr));

end.

Answer 2

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

pascalCopy code
program AverageArray;

var
  numbers: array[1..10] of Integer;
  i, sum: Integer;
  average: Real;

begin
  sum := 0;

  // Ввод чисел в массив
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    readln(numbers[i]);
    sum := sum + numbers[i];
  end;

  // Вычисление среднего арифметического
  average := sum / 10;

  // Вывод среднего арифметического
  writeln('Среднее арифметическое элементов массива: ', average:0:2);

  readln;
end.

В данном примере мы используем массив numbers с 10 элементами типа Integer. С помощью цикла for мы запрашиваем у пользователя ввод 10 чисел и сохраняем их в массиве. Затем мы суммируем все элементы массива и делим полученную сумму на 10, чтобы найти среднее арифметическое. Результат выводится на экран с помощью writeln.