Дан двумерный массив размерностью Nх2N, заполненный целыми числами. nbsp;Отыскать среднее арифметическое

USES Crt;
nbsp;CONST nbsp;nbsp;N=5;
nbsp;VAR
nbsp;nbsp;nbsp;H:ARRAY[0..N,0..2*N] OF INTEGER;
nbsp;nbsp;nbsp;I,J,K:BYTE; nbsp;nbsp;S:LongInt; nbsp;nbsp;SA:REAL;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp; Заполнение двумерного массива случайным образом и вывод в виде nbsp;nbsp;nbsp;nbsp;прямоугольной матрицы
nbsp;nbsp;nbsp;WriteLn( Значения элементов двумерного массива); nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;FOR I:=1 TO N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 2*N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;H[I,J]:=Random(23); nbsp;nbsp;Write(H[I,J]:3);
nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp; Нахождение суммы значений частей, имеющих четные номера строк
nbsp;nbsp;nbsp;I:=2; K:=0;
nbsp;nbsp;nbsp;WHILE Ilt;=N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;FOR J:=1 TO 2*N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;S:=S+H[I,J]; nbsp;nbsp;Inc(K);
nbsp;nbsp;nbsp;nbsp;nbsp;End; nbsp;nbsp;nbsp;nbsp;I:=I+2;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;SA:=S/K;
nbsp;nbsp;nbsp;Write( Среднее арифметическое элементов, имеющих четные номера строк =,SA:4:1);
nbsp;END.