Даны x(n),y(m). Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметич - Pascal

Формулировка задачи:

Даны x(n),y(m). Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметическое значение массива y, а из массива y- элементы, превышающие среднее арифметическое значение массива x. Написать тескт программы в Pascal и Delphi

Решение задачи: «Даны x(n),y(m). Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметич»

Листинг программы

const
  n = 5;
  m = 6;
 
var
  s1, s2: real;
  k, i: integer;
  x: array[1..n] of integer;
  y: array[1..m] of integer;
  z: array[1..n + m] of integer;
 
begin
  s1 := 0;
  for i := 1 to n do
  begin
    x[i] := random(n) + 1;
    write(x[i]:5);
    s1 := s1 + x[i];
  end;
  s1 := s1 / n;  
  writeln;
  writeln('Среднее массива Х:', s1);
  s2 := 0;
  for i := 1 to m do
  begin
    y[i] := random(m) + 1;
    write(y[i]:5);
    s2 := s2 + y[i];
  end;
  writeln;
  s2 := s2 / n;
  writeln('Среднее массива Y:', s2);  
  k := 0;
  for i := 1 to n do
    if x[i] > s2 then
    begin
      inc(k);
      z[k] := x[i];
    end;
  for i := 1 to m do
    if y[i] > s1 then
    begin
      inc(k);
      z[k] := y[i];
    end;
  for i := 1 to k do
    write(z[i]:5);
end.

Объяснение кода листинга программы

Объявлены константы n = 5 и m = 6, а также переменные s1, s2, k, i, x, y, z.
Заполняются массивы x и y случайными целыми числами от 1 до n и от 1 до m соответственно.
Вычисляется среднее арифметическое массива x и записывается в переменную s1.
Вычисляется среднее арифметическое массива y и записывается в переменную s2.
Задаются начальные значения счетчика k = 0 и переменной z.
Происходит проверка каждого элемента массива x и если он больше среднего значения s2, то этот элемент включается в массив z, увеличивается значение счетчика k и присваивается новое значение элементам массива z.
Происходит проверка каждого элемента массива y и если он больше среднего значения s1, то этот элемент включается в массив z, увеличивается значение счетчика k и присваивается новое значение элементам массива z.
Выводится массив z на экран.