Задание с матрицами

[Dog]

задание:Даны целочисленные матрицы A(6x6) и B(6x6). Построить , где -равно 1, если все элементы i-х строк 1-ой и 2-ой матриц отрицательны, иначе -равно 0

код матриц:

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,min,max,k,l:integer;c:integer;
begin
 randomize;
 for I := 1 to n do begin
for j := 1 to m do begin
a[i,j]:=random(100);
  write(a[i,j],' ');
 end;
 writeln;
 end;
writeln('=*==*==*==*==*==*==*==*==*');
  randomize;
 for k := 1 to n do begin
for l := 1 to m do begin
b[k,l]:=random(100);
  write(b[k,l],' ');
 end;
 writeln;
 end;
 readln;
end.

1) Подскажите как сделать, чтобы элементы матрицы могли быль отрицательными??
2) как сделать так, что сравнивать элементы строки??? если строка вся отрицательная , то выводилось 1, например ??????
Замечание модератора: Используйте тег [CODE]

[Utkin]

1.

a[i,j]:=100-random(200);

2. Напишите подпрограмму, которая бы это проверяла для заданной строки массива (В цикле).
ЗЫ. Рандомизация обычно проводится при старте программы, иначе есть вероятность, что последовательность повторится.

[Dog]

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

1.

a[i,j]:=100-random(200);

2. Напишите подпрограмму, которая бы это проверяла для заданной строки массива (В цикле).

проблемка в том что я не понимаю, как написать подпрогу(((
даж представить не могу как код записать

[Utkin]

function MyFunc(x: Integer): Integer;
begin
end;

Вот каркас, наполняете его смыслом.
Вызов. например x:=MyFunc(10); , где 10 будет номер Вашего ряда. Массив должен быть глобальным, иначе доступ к нему не получите.

[Dog]

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

1.

a[i,j]:=100-random(200);

2. Напишите подпрограмму, которая бы это проверяла для заданной строки массива (В цикле).
ЗЫ. Рандомизация обычно проводится при старте программы, иначе есть вероятность, что последовательность повторится.

например:
if a[1,1]<0 and .... and a[1,6]<0 then c:=1;

так думаю???

[Utkin]

Нет, в цикле

if a[x, i]>0 then 
begin
        c:=0;
        Exit;
end;

Предварительно c:=1;
x - входящий параметр MyFunc, i - переменная цикла. Если будешь оформлять как функцию, то вместо с можно писать result (специальная переменная для результата функции).