Question

Ввести целое число N и массив из N целых чисел .Определить среднее арифметическое элементов массива НЕ кратных 3. ПАСКАЛЬ

Answer 1

// PascalABC.NET 3.3.5

begin

 var n:=ReadInteger('n=');

 var a:=ReadArrInteger('Вводите массив:',n);

 Writeln(a.Where(x->(x mod 3<>0)).Average);

end.

Пример:

n= 5

Вводите массив: 20 15 11 45 32

21

Answer 2

Для решения этой задачи на Pascal, вам понадобится объявить переменные, прочитать массив и вычислить среднее арифметическое элементов, которые не кратны 3. Вот пример кода:

pascalCopy code
program AverageNotDivisibleByThree;

const
  MAX_SIZE = 100;

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

begin
  // Ввод размера массива
  Write('Введите количество элементов массива: ');
  Readln(N);

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

  // Инициализация переменных
  sum := 0;
  count := 0;

  // Подсчет суммы элементов, не кратных 3
  for i := 1 to N do
  begin
    if arr[i] mod 3 <> 0 then
    begin
      sum := sum + arr[i];
      Inc(count);
    end;
  end;

  // Проверка, чтобы не делить на 0
  if count > 0 then
  begin
    average := sum / count;
    Writeln('Среднее арифметическое элементов, не кратных 3: ', average:0:2);
  end
  else
    Writeln('В массиве нет элементов, не кратных 3.');

  Readln;
end.

Программа запросит у вас количество элементов массива (N) и значения элементов по очереди. Затем она вычислит среднее арифметическое элементов, не кратных 3, и выведет его на экран с двумя знаками после запятой.