Двумерные массивы. Модули

[svoiachka]

Двумерные массивы. Модули

Pascal
1. Дан двумерный массив. Найти номера последних положительных элементов каждой строки.
2. Дан двумерный массив. Вставьте первую строку между средними строками.


Как решать с помощью модулей и процедур??

 

[Gruvi]

1.

Var
M:Array[1..9,1..12] of Integer;
i,j,j_pos:Byte;
Begin
Randomize;
Writeln('Initial array:');
For i:=1 to 9 do
begin
For j:=1 to 12 do
begin
M[i,j]:=50-Random(100);
write(M[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Numbers of last positive elements:');
For i:=1 to 9 do
begin
write(i,' line: ');
j_pos:=0;
For j:=1 to 12 do
if M[i,j]>0 then j_pos:=j;
If j_pos=0 then
writeln('no')
else
writeln(j_pos:2);
end;
readln
End.

2.

Var
M:Array[1..7] of Vector;
D:Vector;
i,j:Byte;
Begin
Randomize;
Writeln('Initial array:');
For i:=1 to 7 do
begin
For j:=1 to 12 do
begin
M[j]:=Random(100);
write(M[j]:4);
end;
writeln;
end;
writeln;
D:=M[1];
For i:=2 to 4 do
M[i-1]:=M;
M[4]:=D;
Writeln('Changed array:');
For i:=1 to 7 do
begin
For j:=1 to 12 do
write(M[j]:4);
writeln;
end;

Насколько ленивые люди. Все есть на форуме, надо просто поискать.

 

[svoiachka]

спасибо большое,в следующий раз будем упорно искать)