Подсчитать количество элементов, больших заданного А и стоящих в строках с нечетными номерами

var M: array [1..N, 1..K ] of single; A: single; i: integer; c: integer; s: single;begin GetDataM; write( \'Введите число А =\' ); readln( A ); s:= 0; for i:= 1 to N do begin if (i mod 2) = 1 then begin for c:=1 to K do if M[i,c] > A then s:= s+1; end; end; write( s );end. Дан массив \"M\", состоящий из \"N\" строк и \"K\" колонок, где \"N\" и \"K\" - константы. Массив заполняется значениями в процедуре \"GetDataM\". В переменной \"s\" хранится количество искомых элементов. Изначально переменной присваивается значение \"0\". В цикле перебираются все строки. И если номер строки нечетный (т.е. остаток от деления на \"2\" равен единице), то во всех колонках этой строки элементы массива \"M\" сравниваются с числом \"A\". И если они больше, чем \"A\", то счетчик \"s\" увеличивается на единицу.