Home
О нас
Products
Services
Регистрация
Войти
Поиск
Kseniya20132015
@Kseniya20132015
March 2022
1
10
Report
Дан двумерный массив A размерностью М*N. Отсортировать все строки по возрастанию значений элементов.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
And42
Const
M = 10; // Количество строк
N = 10; // Количество столбцов
var
arr: array [1..M, 1..N] of integer;
i,j,z,min,temp : integer;
begin
for j := 1 to M do
for i := 1 to N do
arr[j, i] := random(99);
writeln('Исходный массив:');
for j := 1 to M do
begin
for i := 1 to N do
write(arr[j, i] : 2, ' ');
writeln;
end;
for j := 1 to M do
begin
for i := 1 to N - 1 do
begin
min := i;
for z := i + 1 to N do
if arr[j, z] < arr[j, min] then
min := z;
temp := arr[j, min];
arr[j, min] := arr[j, i];
arr[j, i] := temp;
end;
end;
writeln;
writeln('Отсортированный массив');
for j := 1 to M do
begin
for i := 1 to N do
write(arr[j, i] : 2, ' ');
writeln;
end;
end.
1 votes
Thanks 1
More Questions From This User
See All
Kseniya20132015
August 2022 | 0 Ответы
opredelit skolko v massive podryad idushih par elementov s odinakovym znacheniem
Answer
Kseniya20132015
August 2022 | 0 Ответы
umenshit maksimalnyj element massiva na velichinu indeksa a minimalnyj elemen
Answer
Kseniya20132015
August 2022 | 0 Ответы
napishite programmu kotoraya zapolnyaet massiv razmernostyu 40 sleduyushimi dannymi
Answer
Kseniya20132015
July 2022 | 0 Ответы
dan massiv napolnennyj otricatelnymipolozhitelnymi chislami i nulyami najti in
Answer
Kseniya20132015
September 2021 | 0 Ответы
dan odnomernyj celochislennyj massiv mas pomenyat mestami dva elementa massiva s
Answer
Kseniya20132015
September 2021 | 0 Ответы
sformirovat odnomernyj celochislennyj massiv razmernostyu n pomenyat mestami pe
Answer
Kseniya20132015
September 2021 | 0 Ответы
sformirovat odnomernyj celochislennyj massiv a razmernostyu n zaprosit u polz
Answer
Kseniya20132015
August 2021 | 0 Ответы
pomenyat mestami maksimalnyj i minimalnyj elementy massiva
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "Дан двумерный массив A размерностью М*N. Отсортировать все строки по возрастанию..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
M = 10; // Количество строк
N = 10; // Количество столбцов
var
arr: array [1..M, 1..N] of integer;
i,j,z,min,temp : integer;
begin
for j := 1 to M do
for i := 1 to N do
arr[j, i] := random(99);
writeln('Исходный массив:');
for j := 1 to M do
begin
for i := 1 to N do
write(arr[j, i] : 2, ' ');
writeln;
end;
for j := 1 to M do
begin
for i := 1 to N - 1 do
begin
min := i;
for z := i + 1 to N do
if arr[j, z] < arr[j, min] then
min := z;
temp := arr[j, min];
arr[j, min] := arr[j, i];
arr[j, i] := temp;
end;
end;
writeln;
writeln('Отсортированный массив');
for j := 1 to M do
begin
for i := 1 to N do
write(arr[j, i] : 2, ' ');
writeln;
end;
end.