МАтрицы

[Dog]

" матрицы, если элементы 1 строки А матрицы и 1 строки Б матрицы отрицательны, тогда выводим 1!

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.

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

[Chudo4258]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=6;m=6;
type mas=array[1..n,1..m] of integer;
var
a,b:mas;
i,j,t:integer;
c:array[1..n] of integer;
temp:boolean;

procedure ass(X,Y:mas; k:integer; var p:integer);
var l:integer;
begin
p:=1;
for l:=1 to m do
 if (X[k,l]>0) or (Y[k,l]>0) then p:=0;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

  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
   ass(A,B,i,t);
   C[i]:=t;
  end;

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

  readln;
end.

1.jpg
2.jpg
3.jpg


или

program Project2;
const n=6;m=6;
type mas=array[1..n,1..m] of integer;
var
a,b:mas;
i,j,t:integer;
c:array[1..n] of integer;

procedure ass(X,Y:mas; k:integer; var p:integer);
var l:integer;
begin
p:=1;
for l:=1 to m do
 if (X[k,l]>0) or (Y[k,l]>0) then p:=0;
end;

Procedure vv(var X:mas);
var k,l:integer;
begin
   for k := 1 to n do begin
    for l := 1 to m do begin
      X[k,l]:=100-random(500);
      write(X[k,l]:4,' ');
    end;
    writeln;
  end;
  writeln
end;

begin
randomize;
vv(A);
vv(B);
for i := 1 to n do
 begin
  ass(A,B,i,t);
  C[i]:=t;
 end;
for j := 1 to n do
  write(c[j]:4,' ');
readln;
end.