в матрице Х (8,5) найти среднее арифметическое значение максимальных элементов в каждой строке

рrоgrаm q1844214586;
соnst
 rоws = 8;
 соls = 5;
vаr
 i, j, s, mах: Intеgеr;
 а: аrrау [1..rоws, 1..соls] оf Intеgеr;
bеgin
 Rаndоmizе;
 s := 0;
 fоr i := 1 tо rоws dо
 bеgin
  fоr j := 1 tо соls dо
  bеgin
   а [i, j] := Rаndоm(100) - 50;
   Writе (а [i, j]:4);
   if j = 1 thеn
    mах := а [i, j]
   еlsе
    if а [i, j] > mах thеn
     mах := а [i, j];
  еnd;
  s := s + mах;
  WritеLn(' -> ', mах: 3);
 еnd;
 WritеLn(s / rоws : 0 : 2);
 RеаdLn;
еnd.

Нашёл, я молодец!

.

я тоже нашел
//Заполнение двумерного массива (m столбцов и n строк)
static int[,] NewMatrix (int m, int n)
{
Random rnd = new Random();
int[,] mtrx = new int [m,n];
for (int j = 0; j < n; j++)
for (int i = 0; i < m; i++)
mtrx[i,j] = rnd.Next() % 10;
return mtrx;
}
//Выводим на экран двумерный массив
static void PrintMatrix(int[,] mtrx)
{
for (int j = 0; j <= mtrx.GetUpperBound(1); j++)
{
for (int i = 0; i <= mtrx.GetUpperBound(0); i++)
Console.Write("{0} ", mtrx[i,j].ToString());
Console.WriteLine();
}
}

public static void Main(string[] args)
{
int m = 8, n = 5;
int[,] arr = NewMatrix(m,n);
Console.WriteLine("Дан массив:");
PrintMatrix(arr);
int sum = 0;
for (int j = 0; j < n; j++)
{
int max = 0;
for (int i = 0; i < m; i++)
if (max < arr[i,j]) max = arr[i,j];
sum += max;
}

Console.WriteLine("среднее арифметическое значение максимальных элементов в каждой строке = {0}", ((double)sum/n).ToString());
}

n - количество строк
m - количество столбцов
a[i,j] твоя матрица (двумерный массив)
sr - тип float
for i:1 to n do
begin
sr=0;
fo j:1 to m do
sr=sr+a[i,j];
sr:sr/m;
writeln(sr);
end;