двумерные массивы

[Pryboy]

pascal

нужно удалить все строки в двухмерном массиве, номер которых кратен 5
удалять нужно с конца. помогите.

[Pryboy]

эх пока дождешся сам решишь((((

program z2;
const n=2;
var
A:array [1..n,1..200] of integer;
i,j,k,l,r,m:integer;
Begin
readln(m);
For i:=1 to n do
Begin
For j:=1 to m do
Read(A[i,j]);
end;

writeln;
For j:=m downto 1 do
If (j mod 5) = 0 then begin
l:=j;

for r:=l to m do
for i:=1 to n do
A[i,r]:= A[i,r+1];
m:=m-1;
end;
for i:=1 to n do begin
for j:=1 to m do
write(A[i,j],' ');
writeln; end;
end.

[NeshSoft]

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

эх пока дождешся сам решишь((((

А разве самому то не приятней решить?
Создать программу, которая что-то делает, почувствовать себя создателем!!! - по моему здорово

[alex_fcsm]

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

эх пока дождешся сам решишь((((

Если Вы не заметили, здесь этого и пытаются добиться.