Технический форум - Двумерные массивы. Модули

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Двумерные массивы. Модули (http://www.tehnari.ru/f41/t81879/)

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

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

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

Цитата:

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.

Цитата:

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[i][j]:=Random(100);
write(M[i][j]:4);
end;
writeln;
end;
writeln;
D:=M[1];
For i:=2 to 4 do
M[i-1]:=M[i];
M[4]:=D;
Writeln('Changed array:');
For i:=1 to 7 do
begin
For j:=1 to 12 do
write(M[i][j]:4);
writeln;
end;

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

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