СМЕХ, | Код |
const
MAX = 20;
Var
matrix : Array [1..MAX, 1..20] of integer;
m, n : integer;
i, k, line : integer;
Begin
Writeln('Input matrix rows (max = ', max, ')');
Readln(m);
Writeln('Input matrix columns (max = ', max, ')');
Readln(n);
Writeln('Input elements');
for i := 1 to m do
for k := 1 to n do
read(matrix[i, k]);
Writeln('Input line to delete (max = ', max, ')');
Readln(line);
for i := line + 1 to m do
begin
for k := 1 to n do
matrix[i - 1, k] := matrix[i, k];
end;
Dec(m); // уменьшаем количество строк
Writeln('Rows count = ', m);
Writeln('New matrix');
for i := 1 to m do
begin
for k := 1 to n do
write(matrix[i, k] : 3);
writeln;
end;
Writeln('Press any key to exit');
readln;
end.
|
|
