Здравствуйте, Kuvart2009!
Решение первой задачи с пояснениями в приложении.


Приложение:
1)В массиве А(k,l) исключить строку, содержащую наибольшее количество нулевых элементов
uses crt;
const nmax=20; {максимальный размер матрицы}
var a:array[1..nmax,1..nmax] of byte;{тип матрицы, числа от 0 до 256}
k,l,i,j,n,max,imax:byte;
begin
clrscr;
randomize;
repeat {вводим размеры матрицы с проверкой правильности ввода}
write('Vvedite kolichestvo strok: ');
readln(k);
until (k>0)and(k<=nmax);
repeat
write('Vvedite kolichestvo stolbcov: ');
readln(l);
until (l>0)and(l<=nmax);

writeln('Ishodnaya matrica:');
for i:=1 to k do
for j:=1 to l do
a[i,j]:=random(4);{заполняем матрицу числами от 0 до 3}

max:=0;imax:=1;
for i:=1 to k do
begin
n:=0;
for j:=1 to l do
if a[i,j]=0 then inc(n);{считаем в каждой строке ноли}
if n>max then
begin
max:=n;{находим где больше}
imax:=i;{запоминаем эту строку}
end;
end;
for i:=1 to k do
begin
for j:=1 to l do
if i=imax then {строку с макс. кол. нолей выделяем ярко-красным цветом}
begin
Textcolor(12);
write(a[i,j]:3);
end
else {остальные обычным, чаще это белый}
begin
Textcolor(15);
write(a[i,j]:3);
end;
writeln;
end;
for i:=imax to k-1 do {от строки с макс. кол. нолей до предпоследней}
for j:=1 to l do
a[i,j]:=a[i+1,j];{ всем элементам присваиваем значения следующей строки, строка с которой начали исчезает}
dec(k);{уменьшаем на 1 кол. строк}
writeln('Rezultat:');
for i:=1 to k do
begin
for j:=1 to l do
write(a[i,j]:3);
writeln;
end;
readln
end.