Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197658
26.01.2020, 12:17
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:
Составьте программу упорядочения по убыванию элементов каждого столбца двумерного массива C[1.5, 1..4]. Массив заполнен случайными вещественными числами от -20 до 20

Обсуждение

давно
puporev
Профессор
401888
1232
26.01.2020, 15:24
общий
это ответ
Здравствуйте, JonMoxley!
[code lang=pascal]const m=5;
n=4;
var c:array[1..m,1..n] of integer;
i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=-20+random(41);
write(c[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
for i:=1 to m-1 do
for k:=i+1 to m do
if c[i,j]<c[k,j] then
begin
x:=c[i,j];
c[i,j]:=c[k,j];
c[k,j]:=x;
end;
writeln('Сортировка столбцов по убыванию');
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.[/code]
Форма ответа