Дана матрица размера MxN и целое число К(1<K<M). Удалить строку матрицы с номером К

[bolshe_ne_RUS]

Дана матрица размера MxN и целое число К(1<K<M). Удалить строку матрицы с номером К

[unbanned]

удалить или не выводить?
если именно удалить, то тут два варианта... либо создать еще одну матрицу размера (M-1)xN и записать туда строки за исключением k-й. Либо сместить строки в исходной, но в таком случае одна строка (последняя) останется лишней (её не надо будет выводить).

[bolshe_ne_RUS]

надо удалить и вывести новую матрицу-по моему.я тут мало что понимаю, не сочтите за трудность сделайте пожалуйста, буду очень благодарен

[Alex11223]

Если с помощью другой матрицы, то как-то так вроде

с:=0;
for i:=1 to m do
begin
   с:=с+1;
   for j:=1 to n do 
   begin
      if(i=k) then begin k:=k-1; break; end;
      b[с,j]:=a[i,j];
   end;
end;

Остальное надеюсь сами напишите.
upd: нет, не так. Как-то так. Чот костыль какой-то получился)
upd2: упс, забыл, что переменная с именем к уже используется.

[unbanned]

var
  m1: array [1..6, 1..5] of integer;
  m2: array [1..5, 1..5] of integer;
  i, j, k: integer;
  f: text;

begin
  assign(f, 'input.txt');
  reset(f);
  writeln('Исходная матрица: ');
  for i := 1 to 6 do
  begin
    for j := 1 to 5 do 
    begin
      read(f, m1[i, j]);
      write(m1[i, j]:2, ' ');
    end;
    writeln;
  end;
  close(f);

  writeln('Введите k:');
  write('k=');readln(k);
  
  for i := 1 to 6 do 
    for j := 1 to 5 do 
    begin
      if i > k then m2[i - 1, j] := m1[i, j]
      else m2[i, j] := m1[i, j];
    end;
  
  writeln('Полученная матрица: ');
  for i := 1 to 5 do 
  begin
    for j := 1 to 5 do
      write(m2[i, j]:2, ' ');
    writeln;
  end;
end.

вам повезло... я нашел подобную задачу у себя в исходниках

и еще воспользовавшись гуглом нашел точно вашу задачу...

[Alex11223]

Что-то по ссылке какое-то "неч0ткое" решение. Лучше уж тогда как-то так.

for i := 1 to m do
  begin
    for j := 1 to n do
      if(i = k) then break else write(a[i, j]);
    writeln;
  end;

[unbanned]

ссылку я привел как бы подсказывая, что можно воспользоваться поиском =)

а моё решение чем не устраивает? единственное можно добавить проверку чтобы 1<K<M