Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
3 / 3 / 0
Регистрация: 14.11.2012
Сообщений: 101
1

Расположить элементы заданной строки матрицы по убыванию

24.01.2013, 20:18. Просмотров 1017. Ответов 1
Метки нет (Все метки)

ввести двумерный массив m на n, ввести номер строки и распол. элементы строки по убыванию
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2013, 20:18
Ответы с готовыми решениями:

Для заданной матрицы расположить элементы каждой строки в порядке не убывания их абсолютных величин
Для заданной матрицы расположить элементы каждой строки в порядке не убывания их абсолютных...

Расположить нечетные отрицательные элементы заданной последовательности по убыванию
Дорогие, программисты. Помогите, пожалуйста, выполнить задание в Lazarus. Дана...

Переставляя столбцы заданной матрицы расположить их по убыванию сумм элементов
Здравствуйте можете пожалуйста составить программу в паскале. Переставляя столбцы заданной...

Расположить все элементы матрицы по убыванию
Разработать алгоритм и программу решения задачи:"Дана вещественная матрица размерности m*n....

1
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
25.01.2013, 10:01 2
Лучший ответ Сообщение было отмечено hallmax как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
     M = 5;
     N = 5;
var
   a: array[1..M,1..N] of integer;
   i,j,s,swap:integer;
begin
     randomize;
     for i:=1 to M do begin
         for j:=1 to N do begin
             a[i,j]:=random(9);
             write(a[i,j], ' ');
             end;
         writeln;
         end;
     writeln('----------------------');
     write('Íîìåð ñòðîêè: ');
     readln(s);
     for i:=1 to M-1 do
         for j:=i+1 to M do
      if (a[s,i]<a[s,j]) then
        begin
          swap:=a[s,i];
          a[s,i]:=a[s,j];
          a[s,j]:=swap;
        end;
      for i:=1 to M do begin
          for j:=1 to N do
              write(a[i,j], ' ');
          writeln;
          end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2013, 10:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Расположить строки матрицы по убыванию их последних элементов
В текстовом файле в первой строке записаны два целых числа, разделенные пробелом, – количество...

Расположить строки матрицы по убыванию их последних элементов
Доброго времени суток. Буду благодарен за помощь с задачей. Составить программу решения...

Дана матрица S(4,4). Расположить элементы каждой строки по убыванию (Delphi 10)
procedure TForm1.Button1Click(Sender: TObject); Const n=4;m=4; Var a:array of integer;...

Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию
Помогите пожалуйста решить задачу в Pascal ABC, как можно быстрее. Дана матрица nxn. Расположить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.