Матрица

[Sash0k13121995]

Здравствуйте! Помогите решить задачу. Заранее спасибо!

Ввести две матрицы nxm. Найти количество положительных элементов в каждой из матриц и выдать соответствующие сообщения. Задачу решать через процедуры.

[Hacker19_90]

в чём у вас сложность?

[Sash0k13121995]

Никак не могу составить. С циклом с параметром составил, а с процедурой никак. Поможете?

[Hacker19_90]

function GeCountPositive (const mas: TMatrix; const rows, cols: integer): integer;
var
  count: integer;
  i, j: integer;
begin
  count := 0;
  for i := 1 to rows do
    for j := 1 to cols do
      if mas[i,j] > 0 then
        Inc(count);
  GetCountPositive := count;
end;

[Sash0k13121995]

Спасибо вам большое!

[Rin]

Тут пример работы с матрицей с помощью прцедуры.

type
l=array of array of integer;
var mas:l;
............
procedure vvodmatrix(m,n:integer; var a:l);
var i,j:integer;
begin
for i:=0 to m do
for j:=0 to n do
a[i,j]:=i*j;
end;
..........
setlength(mas,10,10);
vvodmatrix(9,9,mas);

[Sash0k13121995]

А можно готовую процедуру для паскаля?

[Hacker19_90]

для чего процедуру?
Какие действия она должна выполнять?

[Sash0k13121995]

Эту программу надо написать через процедуры.

program variant_7;
uses crt;
const n=5;
const m=6;
var a,b:array[1..n,1..m] of integer;
i,j,k,p:integer;
begin
clrscr;
write('Матрица №1:');
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)-5;
for i:=1 to n do
for j:=1 to m do
begin
gotoxy(j*5+5,i+1);
write(a[i,j]);
end;
writeln('');
write('Матрица №2:');
randomize;
for i:=1 to n do
for j:=1 to m do
b[i,j]:=random(10)-2;
for i:=1 to n do
for j:=1 to m do
begin
gotoxy(j*5+5,i+7);
write(b[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>=0 then inc(k);
end;
for i:=1 to n do
for j:=1 to m do
if b[i,j]>=0 then inc(p);
writeln('');
writeln('В матрице №1 ',k,' положительных элементов.');
writeln('В матрице №2 ',p,' положительных элементов.');
readkey;
end.

[Hacker19_90]

ну вы даёте

function GeCountPositive (const mas: TMatrix; const rows, cols: integer): integer;
var
  count: integer;
  i, j: integer;
begin
  count := 0;
  for i := 1 to rows do
    for j := 1 to cols do
      if mas[i,j] > 0 then
        Inc(count);
  GetCountPositive := count;
end;

вот одна

procedure vvodmatrix(m,n:integer; var a:l);
var i,j:integer;
begin
for i:=0 to m do
for j:=0 to n do
a[i,j]:=i*j;
end;

вот вторая
ток под себя подправте