Удаление строк массива по условию

[Lexakazanskij]

Пересмотрел кучу примеров (как удалить строки), но не могу сделать, чтобы вычеркивались строки, в которых более трех отрицательных элементов.
Помогите (коротеньким кодом)

[pinhead]

То бишь, у тебя переменная тип String в которой находятся элементы (числа и символы) и надо удалить идущие три поряд симвла (числа) если они отрицательны?

[Lexakazanskij]

У меня- обычная матрица типа integer (ничего особенного).

[pinhead]

У вас матрица формата MxN, и надо просмотреть все строки матрицы найти таки, у которых имеются три эл-та (идущих подряд) отрицательных и эти строки убрать из матрицы?

[Lexakazanskij]

Да, но содержащая больше трех эл-тов (4,5,6...

[pascal65536]

А как вообще убираются элементы из массива? Его же не укоротишь налету. Если записать вместо "удалённых" элементов 0 или например MaxInt это тоже не удаление.

[Lexakazanskij]

Методом перестановки строк, убирается массив, вернее: переписывается.

[Lexakazanskij]

Коротенький ответ, на мною заданный вопрос:

Program neo;
USES CRT;
Var a: array[ 1..20,1..20] of integer;
q,w,e,r,t,y:integer;
Begin
clrscr;
WriteLn('Размерность матрицы строки, столбы <=20');
ReadLn(q,w);
WriteLn('Введите ',q,' строк по ',w,' элементов');
for r:=1 to q do
For t:= 1 to w do Read(a[r,t]);
Readln;
WriteLn('Исходный массив');
for r:=1 to q do
begin
for t:=1 to w do
Write(a[r,t]:4);
WriteLn;
end;
e:=0;
for r:=1 to q do
begin
y:=0;
for t:=1 to w do
if a[r,t]<0 then y:=y+1;
if y<4 then
begin
e:=e+1;
for t:=1 to w do a[e,t]:=a[r,t];
end;
end;
if e<>0 then
begin
WriteLn('Новая матрица ');
for r:=1 to e do
begin
for t:=1 to w do
Write(a[r,t]:4);
WriteLn;
end;
end
else
WriteLn('Здесь был Нео');
readln;
end.

P. S. О найденных ошибках, просьба сообщать

[bill]

Если ни где не ошибся то-

 
const m=5,n=5;
var a,b:array[1..m,1..n] of string;q:string;k,d,i,z,x,x1,x2:integer;c:array[1..m,1..n] of string;
begin
for i:=1 to m do
for i:=1 to n do
b[i,z]:=0;
for i:=1 to m do begin
for z:=1 to n do
begin
q:=a[i,z];d:=0;
for k:=1 to length(q)-2 do
begin
x:=integer(q[k]);
x1:=integer(q[k+1]);
x2:=integer(q[k+2]);
if (x<0)and(x1<0)and(x2<0) then d:=d+1;
if d>2 then begin
b[i,z]:=1;break;
end;
end;
end;
end;
d:=1;k:=1;
for i:=1 to m do begin
for z:=1 to n do begin
if b[i,z]=0 then
begin
if d=n then begin d:=1;k:=k+1;end else d:=d+1;
 c[k,d]:=a[i,z];
end;end;

[Lexakazanskij]

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

Если ни где не ошибся то-

Спасибо за код

pascal65536 -ты мне открыл глаза