DelphiПаскаль.обработка многомерных массивов.сложные циклы

[kate-27]

если кто знает как,плиз напишите программу в консоле)
задача:
задана матрица Аm*n.Сформировать одномерный массив В размером m из 1 и 0, в котором i-й элемент равен 1, если в i-й строке матрицы А нет нулевых элементов, и значение 0-в противном случае.

[Филантроп]

for i:=1 to n do begin
b[i]:=1;
for j:=1 to m do
if a[i]=0 then begin b[i]:=0;break;end;
end;

[kate-27]

а полностью можно?)

[Hacker19_90]

А номер аськи можно??

[Hacker19_90]

Ладно шучу!

program forum;
uses crt;
const
    m = 5;
    n = 6;
var
    Massiv1: array[1..m, 1..n] of integer;
    Massiv2: array[1..m] of integer;
    i, j: integer;
begin
     clrscr;
     Writeln('Введите ', m*n, ' элементов:');
     for i := 1 to m do 
         for j := 1 to n do
             Read (Massiv1[i, j]);
     Readln;
     for i:=1 to n do begin
         Massiv2[i]:=1;
         for j:=1 to m do
             if Massiv1[i]=0 then begin Massiv2[i]:=0;break;end;
      end;
      Writeln ('Ваш массив');
     for i := 1 to m do
     write (Massiv2[i]:3);
     Readkey;
end.

Ток я не проверял

[kate-27]

не работает(

[Hacker19_90]

В чём ошибка??? Где ошибка ??? Что не работает???

[kate-27]

ну вроде здесь
if Massiv1[i]=0 then begin Massiv2[i]:=0;break;end;

[Hacker19_90]

Ладно давай через мой алгоритм

program forum;
uses crt;
const
    m = 5;
    n = 6;
var
    Massiv1: array[1..m, 1..n] of integer;
    Massiv2: array[1..m] of integer;
    i, j: integer;
    Flag: boolean;
begin
     clrscr;
     Writeln('Введите ', m*n, ' элементов:');
     for i := 1 to m do 
         for j := 1 to n do
             Read (Massiv1[i, j]);
     Readln;
     for i:=1 to m do 
     begin
         Flag := true;
         for j:=1 to n do
             if Massiv1[i, j] = 0 then Flag := false;
         if Flag = false then Massiv2[i] := 0
         else Massiv2[i] := 1;
    end;
      Writeln ('Ваш массив');
     for i := 1 to m do
     write (Massiv2[i]:3);
     Readkey;
end.

[kate-27]

все равно что-то не то..