Question

Найти сумму элементов массива состоящего из n чисел и найти их среднее арифметическое на языке паскаль

Answer 1

1. program task31152710;
2. const
3.  N = 10;
4. var
5.  arr: array[1..N] of integer;
6.  S: real;
7. begin
8.  for var i := 1 to N do
9.    begin
10.      Readln(arr[i]);
11.      S := S + arr[i]
12.    end;
13.  Writeln('СУММА ЭЛЕМЕНТОВ = ', S);
14.  Writeln('СРЕДНЕЕ АРИФМ. = ', S / N);
15. end.

Answer 2

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

pascalCopy code
program SumAndAverage;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE] of Integer; // Объявляем массив
  n, i, sum: Integer;
  average: Real;

begin
  // Вводим количество элементов массива
  Write('Введите количество элементов массива (n): ');
  ReadLn(n);

  // Проверяем, чтобы количество элементов было в пределах допустимого размера массива
  if (n < 1) or (n > MAX_SIZE) then
  begin
    WriteLn('Некорректное количество элементов.');
    Exit;
  end;

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

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

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

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

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