Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197170
23.11.2019, 09:52
0.00 руб.
0 1 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Составьте программу, упорядочивающую по убыванию элементы каждой строки матрицы размером m*n. (размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными вещественными числами от 0 до 20.

Pascal

Приложение:
Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
23.11.2019, 11:51
общий
это ответ
Здравствуйте, rail!
[code lang=pascal]var a:array[1..10,1..10] of integer;
m,n,i,j,k,x:integer;
begin
repeat
writeln('Введите размеры матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
randomize;
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]<a[i,k] then
begin
x:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=x;
end;
writeln('Строки матрицы отсортированы');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.[/code]
Форма ответа