1)Выдать на экран номер первого столбца содержащий нулевой элемент
const n=5; m=6; var i,j:byte; a:array[1..n,1..m]of integer; begin for i:=1 to n do for j:=1 to m do read(a[i,j]); for i:=1 to n do for j:=1 to m do if a[i,j]=0 then begin writeln(j);exit;end; end. Нужна помощь? Сюда: vkontakte.ru/berestovskiy