Дан массив x(n,m) .найти среднее арифметическое тех строк массива, первый элемент которых положительный

/*дан массив x(n,m) .найти среднее арифметическое тех строк массива, первый элемент которых положительный*/#include < iostream> #include < time.h> #define m 5#define n 5using namespace std; void printarray(int *mas, int n,int m)//инициализация и вывод массива  { srand(time(0)); for (int i = 0; i < n; i++) { for (int j = 0; j < m; j++) { *mas = rand() % 21-10; cout < < *mas < < "\t"; mas++; } cout < < endl; }} void srarray(int mas[][m], int n)//нахождение и подсчет тех строк, где первый элемент положительный{ int a; double sum = 0; for (int i = 0; i < n; i++) { double sr = 1; if (mas[i][0] > 0) { for (int j = 0; j < m; j++) { sum += mas[i][j]; } sr = sum / m; cout < < "ср элеменитов " < < i + 1 < <   "-й строки = " < < sr < < endl; } else ; } } void main()//основная функция{ setlocale(lc_all, "rus"); int x[n][m]; printarray(& x[0][0], n, m); cout < < endl; cout < < "==================================="< < endl; srarray(x, n); system("pause"); }

Var  n,i,max: integer;         a: array [1..1000] of integer; //объявляем массив begin   writeln('введите количество чисел');     readln(n);   for i: =1 to n do begin     readln(a[i]);     if a[i]> max then       max: =i;     end; writeln('индекс максимального элемента массива =', max); end.