Question

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

Answer 1

Var
i,a,N:integer;
sr:real;
begin
 write('Vvedite N = '); 
readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N 
randomize;
for i:=1 to N do
begin
a:=random(N);
write(a,' ');
sr:=sr+a; //Значения массива складываются
end;
sr := (sr / N); //Сумма значений массива делится на количество значений
writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое
readln;
end.

Answer 2

Вот пример программы на Паскале, которая запрашивает с клавиатуры массив из N чисел, а затем выводит сумму и среднее арифметическое всех элементов массива:

scssCopy code
program sum_and_average;
var
  n, i: integer;
  arr: array of integer;
  sum, avg: real;
begin
  write('Enter the size of the array: ');
  readln(n);
  
  SetLength(arr, n); // создаем массив нужного размера
  
  // заполняем массив числами, введенными с клавиатуры
  for i := 0 to n-1 do begin
    write('Enter element ', i+1, ': ');
    readln(arr[i]);
  end;
  
  // считаем сумму элементов массива
  sum := 0;
  for i := 0 to n-1 do begin
    sum := sum + arr[i];
  end;
  
  // считаем среднее арифметическое элементов массива
  avg := sum / n;
  
  // выводим результаты
  writeln('Sum of array elements: ', sum:0:2);
  writeln('Average of array elements: ', avg:0:2);
end.

Программа начинается с запроса размера массива (переменная n), после чего создает массив с помощью SetLength(). Затем программа запрашивает у пользователя значения для каждого элемента массива и сохраняет их в массиве arr. Далее программа вычисляет сумму элементов массива, используя цикл for, и затем вычисляет среднее арифметическое. Наконец, результаты выводятся на экран с помощью writeln().