1. Дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа.
В FreePascal, заранее спасибо)

k можно было не вводить

а воод вручную это реально издевательство

А, ну да)) просто увеличивать элемент массива))))

for i := 1 to N do begin B[i] := 0; for j := 1 to M do if C < A[i, j] then B[i] := B[i] + 1; end;