Правила форума
Задача: В заданной матрице поменять местами последний столбец и столбец, содержащий минимальный элемент матрицы.
Текст программы:
uses crt; {Вызовэкрана}
type
tind =1..10;
tmatr= array[tind, tind] of integer; {Типматрицы}
var {Описание переменных}
M: TMatr;
n, k, dop, min, jmin: integer;
i, j: tind;
BEGIN
clrscr;
write ('Введите размеры матрицы через пробел: '); {Ввод матрицы}
read(k, n);
write ('Введите ',k*n,' элементов матрицы: ');
for i:=1 to k do
for j:=1 to n
do read (M[i, j]);
readln;
writeln ('Исходнаяматрица: ');
for i:=1 to k do begin
for j:=1 to n
do write (M[i, j]:3);
writeln;
end;
end;
min:= M[1, 1]; {Присваивание}
jmin:= 1;
for i:=1 to k
do begin
for j:=1 to n do
if M[i, j]< min {Условие}
then begin min:= M[i, j];
jmin:= j;
end;
end;
if jmin<>n
then begin
for i:=1 to k
do begin
dop:= M[i, jmin]; {Перестановка элементов}
M[i, jmin]:= M[i, n];
M[i, n]:= dop;
end;
end;
writeln ('Матрица после перестановки: '); {Вывод матрицы}
for i:= 1 to k
do begin
for j:= 1 to n do
write (M[i, j]:3);
writeln;
end;
END.
...........
Нужно чтобы программа была окнами как на рисунке
в прикрепленном файле
hxxp://vkontakte.ru/photo10761923_273938400
картинка по ссылке
xx меняете на tt
Сообщение отредактировано: Filipp -
 Хитрая задачка, HELP |
