Помогите решить две задачки пожалуйста (одномерные и двумерные массивы) Опции

[ZVER]

1. Создать одномерный массив A[1..N]. Все его элементы,
   не равные нулю, переписать, сохраняя их порядок, в начало массива, а нулевые значения- в конец массива. Новый массив не заводить.
2. В матрице A[1..N,1..M] вычислить сумму элементов, находящихся правее столбца с максимальным элементом матрицы, и среднее арифметическое элементов, расположенных ниже строки с максимальным элементом матрицы.

1-ю задачку легче решить через цикл While. Во всех задачках массивы задаются randomize. Помогите пожалуйста! Спасибо большое!

[Гость]

пожалуйста решите задачку:
обнулить все строки двумерного массива A(I..m, I..n) содержащее элемент из интервала(a..b) ) все нулевые строки сдвинуть к началу массива, сохраняя их порядок расположения в массиве. в первой строке входного файла AmnBk.in записаны натуральные числа m и n. во второй стоке файла находятся a и b. в следующих m строках записаны по n целых чисел.
В первую строку выходного файла AmnBk.out записать число не нулевых строк преобразованного массива, а следующих m строках этого файла записаны по n целых чисел - строки преобразованного массива. все числа находятся в диапазоне от 0...10 в 9 степени