Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 188837
22.02.2016, 13:44
0.00 руб.
22.02.2016, 14:04
0 2 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:
Подскажите, пожалуйста, как в программе BPascal отсортировать третий столбец двумерного массива по возрастанию?

Обсуждение

давно
Лысков Игорь Витальевич
Посетитель
7438
7205
22.02.2016, 14:04
общий
Обратите внимание на вопрос
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
22.02.2016, 14:44
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:[code lang=pascal h=200]const n=5;
var
a:array[1..n,1..n]of integer;
b,c,d:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(100);
write(a[b,c]:3);
end;
writeln;
end;
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,3]>a[c,3]then
begin
d:=a[b,3];
a[b,3]:=a[c,3];
a[c,3]:=d;
end;
writeln;
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.[/code]
вопросы в минифоруме.
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа