В двумерном массиве по запросу поменять два заданных столбца или две строки? Пожалуйста))

Я изменил ответ

а как вводить?

строки и столбцы который поменять нужно?

Блин, программа же всё пишет, что вводить! Сначала массив, потом "строки" или "столбцы", потом два значения - индексы столбцов, которые нужно поменять!

Индексы столбцов или строк

Можно сделать чтобы окно ввода не закрывалось после нажантия на энтер

Это как? Сам принцип интерфейса в Паскале такой: он имитирует консоль.

мне нужно чтобы в конце он спросил закончить программу или продолжить? (все так сложно )

Значит, сделайте внешний цикл Repeat... until

vara: array[1..4, 1..4] of integer;i, j, x, y, n: integer;s: string;beginfor i:=1 to 4 dofor j:=1 to 4 doread(a[i, j]);writeln('Введите "столбцы", чтобы поменять столбцы, или "строки", чтобы поменять строки');readln(s);writeln('Введите номера столбцов/строк');readln(x, y);if s='столбцы' thenfor i:=1 to 4 dobeginn := a[i, x];a[i, x] := a[i, y];a[i, y] := n;end;if s='строки' thenfor i:=1 to 4 dobeginn := a[x, i];a[x, i] := a[y, i];a[y, i] := n;end;for i:=1 to 4 dobeginfor j:=1 to 4 dowrite(a[i, j], ' ');writeln;end;end.