Дан двумерный массив. Найти количество нечетных элементов, расположенных выше главной диагонали.ПОМОГИТЕ

а подробнее можете???

If j>I then do - это у Вас какой язык, простите?

Основная процедура Count:=0;For I:=1 to n do beginFor j:=1 to n do beginIf j>I then do If a[i,j] mod 2<>0 then inc(count);Endif;Endif;End;End;

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var n:=ReadInteger('Задайте число строк/столбцов массива:');  var a:=MatrixRandom(n,n,-99,99);  Writeln('Исходный массив');  for var i:=0 to n-1 do begin    for var j:=0 to n-1 do Write(a[i,j]:4);    Writeln    end;   Write('Кол-во нечетных элементов выше главной диагонали: ');   var k:=0;  for var i:=0 to n-2 do    for var j:=i+1 to n-1 do      if Odd(a[i,j]) then Inc(k);  Writeln(k)end.Тестовое решениеЗадайте число строк/столбцов массива: 6Исходный массив  31  27 -90 -64 -75  22  12  11  79   6 -14  73 -66 -52 -97 -82 -50  47 -65  20  25  -7 -13  46 -31  -9 -69  47  81   2 -43 -68  95  -3 -36 -55Кол-во нечетных элементов выше главной диагонали: 6