проследите как изменяются числа в каждом ряду и продолжите каждый из рядов список ещё четыре числа 359 17​

Const
  nn=50; // максимальное количество учеников
var
  i,n,sm,sd,km,kd:integer;
  am,ad:real;
  var a:array[1..nn] of integer;
begin
  Write('Введите количество учеников: ');
  Read(n);
  Writeln('Введите рост учеников');
  sm:=0; sd:=0; km:=0; kd:=0;
  for i:=1 to n do
    begin
    Read(a[i]);
    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
    else begin sm:=sm-a[i]; Inc(km) end
    end;
  am:=sm/km; ad:=sd/kd;
  Write('Средний рост мальчиков (',am:0:1,') ');
  if am-ad<=10 then Write('не ');
  Writeln('превышает средний рост девочек (',ad:0:1,') ');
  Writeln('больше, чем на 10 см')
end.
   
Примерное решение

Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см

#include <stdio.h>
#include <stdlib.h>

int main() 
{ 
   int N=10;
   int i, j, sum, a[N][N]; 
   float sr;
   
   srand (time(NULL)); 
   for ( i = 0; i < N; i ++ )     {
    for ( j = 0; j < N; j ++ )            {
        a[i][j] = rand() % 50 + 1;
        printf ("%4d ", a[i][j]);
        } 
    printf("\n");
   }
    sum = 0;
    for ( i = 1; i < N; i ++ )
     for ( j = 0; j < i; j ++ )
       sum+=a[i][j];
    printf ("sum = %d\n",sum);
    sr = sum/((N*N-N)/2.0);
    printf("Ср. арифм. элементов ниже главной диагонали = %5.2f\n", sr);
    return 0;
}

Пример (для матрицы 5х5):
10 6 7 20 27
26 4 25 18 44
8 34 34 27 40
34 24 19 43 7
6 11 24 10 16
sum = 196
Среднее арифметическое элементов ниже главной диагонали = 19.60