Question

Написать программу в паскале для расчёта среднего значения элементов в массиве. Ввод массива с клавиатуры. СРОЧНО!!!! Заранее спасибо!

Answer 1

program mas_sr_znach;

const n=10;

var

i,sum:integer;

a:array[1..n] of integer;

begin

writeln(' Введите элементы массива ');

writeln(' Элемент Сумма ');

sum:=0;

for i:=1 to n do

begin

write(i,'》');

read(a[i]);

sum:=sum+a[i];

writeln(sum:14);

end;

write('Среднее》 ',sum/n:6:2);

end.

Answer 2

Конечно! Вот пример программы на Pascal для расчета среднего значения элементов в массиве, вводимого с клавиатуры:

pascalCopy code
program AverageCalculation;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, sum: Integer;
  average: Real;

begin
  // Ввод размера массива
  WriteLn('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

  // Проверка на валидность размера массива
  if (n <= 0) or (n > MAX_SIZE) then
  begin
    WriteLn('Некорректный размер массива.');
    Exit;
  end;

  // Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
    ReadLn(arr[i]);

  // Вычисление суммы элементов
  sum := 0;
  for i := 1 to n do
    sum := sum + arr[i];

  // Вычисление среднего значения
  average := sum / n;

  // Вывод результата
  WriteLn('Среднее значение элементов массива: ', average:0:2);
end.

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

Обратите внимание, что данная программа ограничивает размер массива до 100 элементов, чтобы избежать переполнения. Вы можете изменить это значение, изменив константу MAX_SIZE в соответствии с вашими потребностями.