Подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn. - Pascal

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

При заданных Х1,Х2,...,Хn и Y1,Y2,...,Yn(массив), проверяя на равенство элементы пар (Х1,Y1),(Y1,Y2),...,(Xn,Yn) подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn.

Решение задачи: «Подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn.»

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

var
   x,y: array[1..100] of integer;
   i,n,k: byte;
   sr: real;
begin
   randomize;
   write('размерность: ');
   readln(n);
   writeln('массив х:');
   for i:=1 to n do
      begin
         x[i]:=random(31);
         inc(sr,x[i]);
         write(x[i],' ');
      end;
   writeln;
   sr:=sr/n;
   writeln('массив у:');
   for i:=1 to n do
      begin
         y[i]:=random(31);
         write(y[i],' ');
      end;
   writeln;
   for i:=1 to n do
      if x[i]=y[i] then inc(k);
   writeln('cреднее арифметическое массива х: ',sr:0:1);
   writeln('число случаев равенства пар: ',k);
   readln
end.

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

Объявлены переменные:
- x, y - массивы целых чисел размером 100;
- i, n, k - целочисленные переменные для контроля цикла;
- sr - переменная типа real для хранения суммы элементов массива x;
- также используется переменная random для генерации случайных чисел.
Выводится запрос на ввод размера массива.
Заполняются массивы x и y случайными целыми числами от 0 до 30.
Сумма элементов массива x сохраняется в переменной sr.
Выводится массив x.
Суммируются элементы массива y и выводится сообщение со средним арифметическим.
Перебираются элементы массива y и проверяется равенство соответствующего элемента массива x. Если элементы равны, к переменной k прибавляется единица.
Выводится сообщение со средним арифметическим массива x и числом случаев равенства пар.