Question

Дать одномерный массив A размерностью 16. определить среднее значение элементов массива . Преобразовать массив А так, чтобы вначале находились значения меньше среднего, а потом больше . все первоначальные элементы массива вводятся с клавиатуры. СДЕЛАТЬ ЭТО В ПАСКАЛЕ

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ReadArrInteger(16);
  var b:=a.Average; Writeln('Среднее ',b);
  a:=a.Where(x->x<=b).Concat(a.Where(x->x>b)).ToArray;
  a.Println
end.

Тестовое решение:
33 19 36 82 63 53 16 96 74 90 25 49 85 99 68 67
Среднее 59.6875
33 19 36 53 16 25 49 82 63 96 74 90 85 99 68 67

Answer 2

Решение в Паскале для задачи с массивом

Для начала, давайте создадим одномерный массив A размерностью 16 и заполним его значениями, введенными с клавиатуры. Затем мы определим среднее значение элементов массива и преобразуем массив так, чтобы вначале находились значения меньше среднего, а потом больше.

program ArrayManipulation;

var
  A: array[1..16] of Integer;
  i, sum, average, temp: Integer;

begin
  sum := 0;
  for i := 1 to 16 do
  begin
    write('Введите элемент массива A[', i, ']: ');
    readln(A[i]);
    sum := sum + A[i];
  end;

average := sum div 16;

for i := 1 to 16 do
  begin
    if A[i] < average then
    begin
      temp := A[i];
      A[i] := A[1];
      A[1] := temp;
    end;
  end;

writeln('Массив A после преобразования:');
  for i := 1 to 16 do
    write(A[i], ' ');

end.

В этом примере мы сначала заполняем массив A значениями, введенными с клавиатуры. Затем мы вычисляем среднее значение элементов массива и преобразуем массив так, чтобы вначале находились значения меньше среднего, а потом больше. Результат выводится на экран.

Примечание: В данном примере предполагается, что пользователь введет все 16 элементов массива. Также не забудьте добавить обработку случая, когда среднее значение может быть нецелым числом.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.