Сформируйте двухмерный массив и удалите из него все строки в которых встречается заданное число. TubrboPascal

Uses

Crt;

const

nn=10;

var

a:array[1 ... nn, 1 ... nn] of integer;

d:array[1 ... nn] of boolean;

i, j, k, n, n1, i1:integer;

begin

ClrScr;

Randomize;

Write ('Укажите число строк в массиве (2-10) : ') ;

Read (n) ;

Writeln ('Исходный массив') ;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=Random (51) - 25;

Write (a[i, j]:4)

end;

Writeln

end;

Write ('Введите число, строки с которым надо удалить: ') ;

Read (k) ;

for i:=1 to n do

begin

d[i]:=False;

j:=1;

while (j<=n) and not d[i] do

begin d[i]: = (a[i, j]=k) ; Inc (j) end

end;

n1:=n;

while (d[n1]) and (n1>0) do Dec (n1) ;

if n1=0 then Writeln ('Удалены все строки')

else begin

for i:=n1 downto 1 do

begin

if d[i] then begin

for i1:=i to n1-1 do

for j:=1 to n do a[i1, j]:=a[i1+1, j];

Dec (n1)

end

end;

Writeln ('Результирующий массив') ;

for i:=1 to n1 do

begin

for j:=1 to n do Write (a[i, j]:4) ;

Writeln

end

end;

ReadKey

end.

Тестовое решение:

Укажите число строк в массиве (2-10) : 10

Исходный массив

-6 23 18 9 4 15 - 22 12 16 - 18

11 20 - 16 - 22 - 20 - 24 - 21 25 12 14

-11 7 22 4 - 6 - 15 - 14 - 7 - 19 1

-16 5 - 9 19 6 10 2 2 10 18

-18 - 6 - 24 21 16 - 22 12 2 - 25 5

0 - 11 16 - 11 6 21 - 12 - 1 13 - 20

-24 3 - 22 14 19 22 2 - 15 10 - 13

-22 16 12 24 - 3 - 2 - 20 16 - 11 4

-9 - 15 - 1 - 20 17 - 17 - 24 3 - 19 9

23 7 - 25 - 6 16 13 - 5 22 - 18 18

Введите число, строки с которым надо удалить: - 6

Результирующий массив

11 20 - 16 - 22 - 20 - 24 - 21 25 12 14

-16 5 - 9 19 6 10 2 2 10 18

0 - 11 16 - 11 6 21 - 12 - 1 13 - 20

-24 3 - 22 14 19 22 2 - 15 10 - 13

-22 16 12 24 - 3 - 2 - 20 16 - 11 4

-9 - 15 - 1 - 20 17 - 17 - 24 3 - 19 9