матрицы

[Dog]

const n=6;m=6;y=6;z=6;
var
a:array[1..n,1..m] of integer;
b:array[1..y,1..z] of integer;
i,j,k,l:integer;c,c2,c3,c4,c5,c6:integer;
begin

 randomize;
 for I := 1 to n do begin
for j := 1 to m do begin
a[i,j]:=100-random(500);
  write(a[i,j]:4,'   ');
 end;
 writeln;
 end;
writeln('----------------------------------------');
  randomize;
 for k := 1 to n do begin
for l := 1 to m do begin
b[k,l]:=100-random(500);
  write(b[k,l]:4,'   ');
 end;
 writeln;
 end;
 writeln('----------------------------------------');
 if a[1,1]and a[1,2]and a[1,3]and a[1,4]and a[1,5]and a[1,6]and
 b[1,1]and b[1,2]and b[1,3]and b[1,4]and b[1,5]and b[1,6]<0  then
 c:=1;
 if a[2,1]and a[2,2]and a[2,3]and a[2,4]and a[2,5]and a[2,6]and
 b[2,1]and b[2,2]and b[2,3]and b[2,4]and b[2,5]and b[2,6]<0  then
 c2:=1;
  if a[3,1]and a[3,2]and a[3,3]and a[3,4]and a[3,5]and a[3,6]and
 b[3,1]and b[3,2]and b[3,3]and b[3,4]and b[3,5]and b[3,6]<0  then
 c3:=1;
  if a[4,1]and a[4,2]and a[4,3]and a[4,4]and a[4,5]and a[4,6]and
 b[4,1]and b[4,2]and b[4,3]and b[4,4]and b[4,5]and b[4,6]<0  then
 c4:=1;
  if a[5,1]and a[5,2]and a[5,3]and a[5,4]and a[5,5]and a[5,6]and
 b[5,1]and b[5,2]and b[5,3]and b[5,4]and b[5,5]and b[5,6]<0  then
 c5:=1;
  if a[6,1]and a[6,2]and a[6,3]and a[6,4]and a[6,5]and a[6,6]and
 b[6,1]and b[6,2]and b[6,3]and b[6,4]and b[6,5]and b[6,6]<0  then
 c6:=1;

 writeln('            ',c,'  ',c2,'  ',c3,'  ',c4,'  ',c5,'  ',c6);
 readln;
end.

Это можно как нибудь упростить?

if a[1,1]and a[1,2]and a[1,3]and a[1,4]and a[1,5]and a[1,6]and
 b[1,1]and b[1,2]and b[1,3]and b[1,4]and b[1,5]and b[1,6]<0  then
 c:=1;
 if a[2,1]and a[2,2]and a[2,3]and a[2,4]and a[2,5]and a[2,6]and
 b[2,1]and b[2,2]and b[2,3]and b[2,4]and b[2,5]and b[2,6]<0  then
 c2:=1;
  if a[3,1]and a[3,2]and a[3,3]and a[3,4]and a[3,5]and a[3,6]and
 b[3,1]and b[3,2]and b[3,3]and b[3,4]and b[3,5]and b[3,6]<0  then
 c3:=1;
  if a[4,1]and a[4,2]and a[4,3]and a[4,4]and a[4,5]and a[4,6]and
 b[4,1]and b[4,2]and b[4,3]and b[4,4]and b[4,5]and b[4,6]<0  then
 c4:=1;
  if a[5,1]and a[5,2]and a[5,3]and a[5,4]and a[5,5]and a[5,6]and
 b[5,1]and b[5,2]and b[5,3]and b[5,4]and b[5,5]and b[5,6]<0  then
 c5:=1;
  if a[6,1]and a[6,2]and a[6,3]and a[6,4]and a[6,5]and a[6,6]and
 b[6,1]and b[6,2]and b[6,3]and b[6,4]and b[6,5]and b[6,6]<0  then
 c6:=1;

Замечание модератора: Используйте тег [CODE]

[del3p]

используй циклы для перебора масива)))))

[Dog]

Сообщение от del3p

используй циклы для перебора масива)))))

легко сказать)))), сделать труднее

[Sweta]

задаем цикл, с перебором i от 1 до 6, а в нем цикл от 1 до 6 и анализируйте значение a[i,j], если меньше 0 ,то +1 к Сч и для b[i,j) тоже, потом Сч на равенство 12, но не знаю будет ли это проще, т.к. необходимо анализировать значение i. Если в Паскале есть оператор переключения, то можно для анализа i, использовать этот оператор.

[val_nnm]

По идеи тебе надо сделать так:

var c:array[1..n] of integer;
...
...
...
  for i := 1 to n do begin
    c[i] := 1;
    temp := a[i,1] and b[i,1];
    for j := 1 to m do Begin
      if ((c[i]<>0) and (a[i,j]<0)) then c[i] := 0;
      if ((c[i]<>0) and (b[i,j]<0)) then c[i] := 0;
    end;
  end;

  for j := 1 to m do
    write(c[j]:4,' ');

  writeln;

но как я понимаю ты проверяеш отрицательность всех чисел в строках обоих матриц. Я бы сделал сдедующим образом. (немного отредактировал твой код чтобы он был немного более понятен и логичен, здесь я ещё предположил что у тебя размеры обоих матриц равны)

const n=6;m=6;
var
a:array[1..n,1..m] of integer;
b:array[1..n,1..m] of integer;
i,j:integer;
c:array[1..n] of integer;
temp:boolean;
begin
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i,j]:=100-random(500);
      write(a[i,j]:4,' ');
    end;
    writeln;
  end;
  writeln('----------------------------------------');

  for i := 1 to n do begin
    for j := 1 to m do begin
      b[i,j]:=100-random(500);
      write(b[i,j]:4,' ');
    end;
    writeln;
  end;
  writeln('----------------------------------------');

  for i := 1 to n do begin
    temp := true;
    for j := 1 to m do Begin
      temp := temp and (a[i,j]<0);
      temp := temp and (b[i,j]<0);
    end;
    if (temp) then c[i] := 1 else c[i] := 0;
  end;

  for j := 1 to m do
    write(c[j]:4,' ');
  writeln;

  readln;
end.