Двумерный массив

[Altana]

Двумерный массив

Дан двумерный массив "А". Пользователь вводит число. Если это число больше первой цифры из столбца, то этот столбец удаляется..
С вводом и выводом все нормально) Объясните пожалуйста как удалить сам столбец?

 

[Altana]

кстати на Pascal..

 

[Vladimir_S]

Объясните пожалуйста как удалить сам столбец?

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

 

[Altana]

Аеее)) Спасибо большое Вот собственно сама программа)
Program pr1;
Uses CRT;
Const N=5;
Const M=5;
var A:array[1..N,1..M] of integer;
s,i,j,k,p,t,z:integer;

Begin
s:=M;
ClrScr;
For i:=1 to N do
For j:=1 to M do A[i,j]:=random(20);
For i:=1 to N do begin
For j:=1 to M do write(A[i,j]:3);
Writeln;
End;



Writeln('vvedite chislo');
Readln(z);

j:=1;
While j<=S do
If A[1,j]>z then
begin
For t:=1 to N do
For p:=j to S-1 do
A[t,p]:=A[t,p+1];
S:=S-1;
end
else j:=j+1;

If k=s then write('vse ctolbci ydaleni') else
writeln;
For i:=1 to N do begin
For j:=1 to S do write(A[i,j]:3);
Writeln;
end;

Readln;
end.