Question

Решите с помощью Паскаля,пожалуйста Сформировать массив случайным образом(длина массива 20).Найти в нем среднее арифметическое.Сформировать новый массив из элементов первого больших среднего арифметического.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-50,50); a.Println;
  var b:=a.Where(t->t>a.Average).ToArray; b.Println
end.

Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31

Answer 2

Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random (20);
 a[i]:=a[i]-10;
        writeln(i,'  ',a[i]);
end;
b:=0;
for i:=1 to n do
    b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
    if a[i]>b/n then begin
       z[x]:=a[i];
       x:=x+1;
    end;
for i:=1 to x do
    writeln(i,' ',z[i]);
readln;
end.

Answer 3

К сожалению, я не могу выполнить программы напрямую, так как моя функциональность ограничивается текстовым вводом-выводом. Однако я могу предоставить вам пример кода на языке программирования Pascal, который решает задачу, о которой вы спрашиваете:

pascalCopy code
program AverageAndNewArray;

const
  N = 20; // Длина массива

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

begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами от 1 до 100
  for i := 1 to N do
    arr[i] := Random(100) + 1;

  // Находим среднее арифметическое
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];
  
  avg := sum / N;

  // Создаем новый массив из элементов первого, больших среднего арифметического
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] > avg then
    begin
      count := count + 1;
      new_arr[count] := arr[i];
    end;
  end;

  // Выводим исходный массив
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  // Выводим среднее арифметическое
  writeln('Среднее арифметическое:', avg:0:2);

  // Выводим новый массив
  writeln('Новый массив из элементов, больших среднего арифметического:');
  for i := 1 to count do
    write(new_arr[i], ' ');
  writeln;
end.

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