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

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] gt; A then s:= s+1; end; end; write( s ); end. Дан массив "M", состоящий из "N" строк и "K" колонок, где "N" и "K" - константы. Массив заполняется значениями в процедуре "GetDataM". В переменной "s" хранится количество искомых частей. Вначале переменной присваивается значение "0". В цикле перебираются все строки. И если номер строки нечетный (т.е. остаток от дробленья на "2" равен единице), то во всех колонках этой строки элементы массива "M" сравниваются с числом "A". И если они больше, чем "A", то счетчик "s" увеличивается на единицу.