Программа с матрицами

[zoza1]

Народ помогие пажалуйста решить задачку:
Составить программу выполнения действий над матрицами, максимально используя возможности програмирования, предусмотреть одновременный вывод на экран исходной матрицы и результата:
Матрица М состоит из 5 строк, 8 столбцов. Составить массив М1 из положительных, М2- из отрицательных элементов матрицы.
Спасибо заранее!

[Вавел из ГМТУ]

А какие действия можно проводить над матицами?
Ну вот и составте процедуры на каждое действие. В Var укажите три матрицы A, B, C.

Для начала напишите процедуру вывода матрицы на экран, где в качестве параметра будет передаваться имя матрицы.

[ОДИНОЧЕСТВО В СЕТИ]

(*Матрица М состоит из 5 строк, 8 столбцов.
 Составить массив М1 из положительных, М2- из отрицательных элементов матрицы.*)
 var m:array[1..5,1..8] of integer;
   m1,m2:array[1..40] of integer;
   i,j,k1,k2:integer;
 begin
	k1:=0;
	k2:=0;
	for i:=1 to 5 do
	for j:=1 to 8 do begin
		readln(m[i,j]);
		if m[i,j]>0 then begin(inc(k1));m1[k1]:=a[i,j];end;
		if m[i,j]<0 then begin(inc(k2));m2[k2]:=a[i,j];end;
	end;
	writeln('ish') 
	for i:=1 to 5 do begin
		for j:=1 to 8 do 
		write(a[i,j]:6);
		writeln;
	end;
	if k1=0 then writeln('+ net') 
	else begin
		writeln('+');
		for i:=1 to k1 do
		write(m1[i]:6);
	end;
	if k2=0 then writeln('- net') 
	else begin
		writeln('-');	
	for i:=1 to k2 do
	write(m2[i]:6);end;
	readln;
end.

[zoza1]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

(*Матрица М состоит из 5 строк, 8 столбцов.
 Составить массив М1 из положительных, М2- из отрицательных элементов матрицы.*)
 var m:array[1..5,1..8] of integer;
   m1,m2:array[1..40] of integer;
   i,j,k1,k2:integer;
 begin
	k1:=0;
	k2:=0;
	for i:=1 to 5 do
	for j:=1 to 8 do begin
		readln(m[i,j]);
		if m[i,j]>0 then begin(inc(k1));m1[k1]:=a[i,j];end;
		if m[i,j]<0 then begin(inc(k2));m2[k2]:=a[i,j];end;
	end;
	writeln('ish') 
	for i:=1 to 5 do begin
		for j:=1 to 8 do 
		write(a[i,j]:6);
		writeln;
	end;
	if k1=0 then writeln('+ net') 
	else begin
		writeln('+');
		for i:=1 to k1 do
		write(m1[i]:6);
	end;
	if k2=0 then writeln('- net') 
	else begin
		writeln('-');	
	for i:=1 to k2 do
	write(m2[i]:6);end;
	readln;
end.

спасибо, а можно переписать для делфи, а то я пытался, ничего не получается =( еще раз спасибо