Question

PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент.

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',8);
  Writeln('Ср.арифм.=',a.Average,', максимум равен ',a.Max)
end.

Пример
Вводите: 6 -4 2 0 4 9 1 6
Ср.арифм.=3, максимум равен 9

Answer 2

Чтобы выполнить эту задачу в PascalABC.NET, вы можете использовать следующий код:

pascalCopy code
program AverageAndMax;
var
  arr: array[1..8] of Integer; // объявляем массив из 8 элементов
  i, sum, max: Integer;
  avg: Real;
begin
  sum := 0; // инициализируем сумму нулем
  max := 0; // инициализируем максимальное значение нулем

  // Заполняем массив данными, введенными с клавиатуры
  writeln('Введите 8 элементов массива:');
  for i := 1 to 8 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
    
    // Вычисляем сумму элементов массива
    sum := sum + arr[i];
    
    // Находим максимальный элемент
    if arr[i] > max then
      max := arr[i];
  end;

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

  // Выводим результаты
  writeln('Среднее арифметическое: ', avg:0:2);
  writeln('Наибольший элемент: ', max);
end.

Этот код создает массив из 8 элементов, заполняет его данными, введенными с клавиатуры, находит сумму всех элементов, максимальный элемент и среднее арифметическое. Результаты выводятся на экран.