Question

Решить в паскале задачу.заполнить массив состоящий из н элементов введенный пользователем в автоматическом режиме .найти среднее значение элемента массива.очень срочно!!!

Answer 1

Var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
end.

Answer 2

Для решения данной задачи на заполнение массива и нахождение среднего значения элементов в Pascal можно использовать следующий код:

program AverageValue;
var
  arr: array of Integer;
  n, i, sum: Integer;
  average: Real;
begin
  Write('Введите количество элементов массива: ');
  ReadLn(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива ', i + 1, ': ');
    ReadLn(arr[i]);
  end;
  
  sum := 0;
  for i := 0 to n - 1 do
  begin
    sum := sum + arr[i];
  end;
  
  average := sum / n;
  
  WriteLn('Среднее значение элементов массива: ', average:0:2);
end.

В этом коде мы сначала запрашиваем у пользователя количество элементов массива `n`. Затем мы создаем массив `arr` с помощью функции `SetLength`, указывая количество элементов равное `n`.

Затем мы используем цикл `for` для заполнения массива `arr` элементами, введенными пользователем. Мы запрашиваем у пользователя каждый элемент массива и сохраняем его в соответствующей ячейке массива.

После этого мы используем еще один цикл `for` для вычисления суммы всех элементов массива. Мы проходим по каждому элементу массива и добавляем его к переменной `sum`.

Затем мы вычисляем среднее значение элементов массива, разделив сумму на количество элементов `n`.

Наконец, мы выводим среднее значение элементов массива на экран.

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

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.