Question

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

Answer 1

1. program task31152774;
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

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

pascalCopy code
program ArraySumAndAverage;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of Integer;
  i, sum, average: Integer;

begin
  // Заполнение массива
  writeln('Введите ', N, ' натуральных чисел:');
  for i := 1 to N do
  begin
    readln(arr[i]);
  end;

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

  // Вычисление среднего арифметического
  average := sum div N; // Деление целочисленное, чтобы получить целое число

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

Обратите внимание, что в данном примере предполагается, что пользователь вводит N натуральных чисел, где N равно 5 (константа). Вы можете изменить значение N в соответствии с вашими потребностями. Также стоит учитывать, что в данной реализации среднее арифметическое будет представлено в целочисленной форме (без дробной части). Если вам нужна более точная средняя арифметическая, можно использовать вещественный тип данных.