Question

Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива. Язык паскаль.

Answer 1

Program enot;
const n= 5;
Var a: array [1..n] of integer;
c:real;
i,max,s:integer;
begin
for i:= 1 to n do begin
read (a[i]);
s:=s+a[i];
end;
c:=s/n;
for i:= 1 to n do
if a[i]>c then write(a[i], '; ');
end.

Answer 2

Для решения данной задачи на языке Pascal, вам потребуется выполнить следующие шаги:

1. Объявите массив `A` из `N` элементов. 2. Вычислите среднее арифметическое элементов массива `A`. 3. Пройдитесь по всем элементам массива `A` и выведите те элементы, значение которых превосходит среднее арифметическое.

Вот пример кода на языке Pascal, реализующий данную задачу:

program FindElementsAboveAverage;

const
  N = 10; // Задайте нужное значение N

var
  A: array[1..N] of Integer;
  Sum, Average: Real;
  i: Integer;

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

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

// Вычисление среднего арифметического
  Average := Sum / N;

// Вывод элементов, превосходящих среднее арифметическое
  Writeln('Элементы, значение которых превосходит среднее арифметическое:');
  for i := 1 to N do
  begin
    if A[i] > Average then
      Write(A[i], ' ');
  end;
  Writeln;

Readln;
end.

В этом примере мы сначала заполняем массив `A` с помощью цикла `for`, затем вычисляем сумму элементов массива `A` и среднее арифметическое. Затем мы проходимся по всем элементам массива `A` с помощью цикла `for` и выводим только те элементы, которые превосходят среднее арифметическое.

Примечание: Пожалуйста, учтите, что код на языке Pascal не поддерживается в данной платформе, поэтому я не могу выполнить его здесь. Однако, вы можете скопировать код и запустить его в своей среде разработки на языке Pascal.