Дана целочисленная матрица размером n×m. Переставляя её строки и столбцы, добиться того, чтобы наименьший элемент (или один из них) оказался
291
485
Ответы на вопрос:
Uses crt;
Type MyType = integer;
Var
n,m,i,j,xi,xj: byte;
a: array[1..100,1..100] of MyType;
Procedure Stroka(i,i1: byte);
var
j: byte;
buf: MyType;
begin
For j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[i1,j];
a[i1,j]:=buf
end
end;
Procedure Stolb(j,j1: byte);
var
i: byte;
buf: MyType;
begin
For i:=1 to n do
begin
buf:=a[i,j];
a[i,j]:=a[i,j1];
a[i,j1]:=buf
end
end;
Begin
Clrscr;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(21)-5;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
xi:=1; xj:=1;
For i:=1 to n do
For j:=1 to m do
If a[i,j] < a[xi,xj] then
begin
xi:=i;
xj:=j
end;
While xi > 1 do
begin
Stroka(xi,xi-1);
Dec(xi)
end;
While xj < n do
begin
Stolb(xj,xj+1);
Inc(xj)
end;
For i:=1 to n do
begin
For j:=1 to m do write(a[i,j]:4);
Writeln
end;
End.
Type MyType = integer;
Var
n,m,i,j,xi,xj: byte;
a: array[1..100,1..100] of MyType;
Procedure Stroka(i,i1: byte);
var
j: byte;
buf: MyType;
begin
For j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[i1,j];
a[i1,j]:=buf
end
end;
Procedure Stolb(j,j1: byte);
var
i: byte;
buf: MyType;
begin
For i:=1 to n do
begin
buf:=a[i,j];
a[i,j]:=a[i,j1];
a[i,j1]:=buf
end
end;
Begin
Clrscr;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(21)-5;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
xi:=1; xj:=1;
For i:=1 to n do
For j:=1 to m do
If a[i,j] < a[xi,xj] then
begin
xi:=i;
xj:=j
end;
While xi > 1 do
begin
Stroka(xi,xi-1);
Dec(xi)
end;
While xj < n do
begin
Stolb(xj,xj+1);
Inc(xj)
end;
For i:=1 to n do
begin
For j:=1 to m do write(a[i,j]:4);
Writeln
end;
End.
A) does she can play badminton very well?
b) does Jack ride a bicycle in the yard?
c) do we often play hide-and-seek?
d) is Robert a good hockey player?
e) can Linda skip well?
1. They always play tag in the yard.
2. Can you play tennis well?
3. She very much likes badminton.
4. Jim can’t ride a bicycle.
5. Is he a good basketball player?
b) does Jack ride a bicycle in the yard?
c) do we often play hide-and-seek?
d) is Robert a good hockey player?
e) can Linda skip well?
1. They always play tag in the yard.
2. Can you play tennis well?
3. She very much likes badminton.
4. Jim can’t ride a bicycle.
5. Is he a good basketball player?
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Реферат по физкультуре 6 класс волейбол...
mathmatic288211.05.2023 15:21 -
ОТМАЗКА УЧИТЕЛЮ ПОЧЕМУ Я НЕ ОТВЕЧАЛА НА УРОКЕ ОТМАЗКИ НЕ ДЕТСКИЄ ПО ТИПУ ЛАГАЛ МИКРОФОН...
gopd222.05.2021 06:03 -
Скласти діалог на тему Мої враження від подорожі...
egorjanov220005.09.2021 13:22 -
ребят меня забанили следуйте по правилам можем всё обсудить в коментах это не вопрос...
kirillbatalov209.11.2021 01:21 -
اموزش کار با این سر Кто с этим языком? ...
NuraiZhu17.11.2021 20:52 -
Призентация на тему картошка кыргызыстана...
AlinaRoz28.01.2020 19:09 -
Вкаком случае фронтальный разрез обозначают? 20 !...
Snezhok140729.07.2020 05:49 -
Все герои из рассказа трафейная пушка...
Кот1515001913.01.2023 14:19 -
Біографія сетон-томпсон 5 речень...
daurova200722.06.2023 11:01 -
Прыгадайце 3-4 творы,прачытаныя самастойна,якія сугучны па змесце з вершам м. арочкі...
vikfffff08.08.2022 20:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.