Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 26.03.2019
Сообщений: 2
1

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

26.03.2019, 10:59. Просмотров 301. Ответов 1
Метки нет (Все метки)

Есть решенная задача, проверьте пожалуйста. ( сортироваться должны только отрицательные, положительные остаются на местах)

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const m=10;n=10;
type ar=array [1..n,1..m] of integer;
procedure init(var a:ar);
var i,j:integer;
  begin
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(40)-20;
  end;
procedure print(a:ar);
var i,j:integer;
  begin
  for i:=1 to n do
    begin
    for j:=1 to m do write(a[i,j]:3,' ');
    writeln;
    end;
  end;
procedure sort(var a:ar);
var k,i,t,r,a1:integer;
  begin
  for i:=1 to n do
  for k:=1 to m-1 do
    begin
    if a[i,k]<0 then
        begin
        for t:=k+1 to m do
        if (a[i,t]<0) and (a[i,k]<a[i,t]) then
          begin
         a1:=a[i,t];
         a[i,t]:=a[i,k];
         a[i,k]:=a1;
          end;
        end;
      end;
  end;
var c:ar;
begin
randomize;
init(c);
writeln('Исходный массив');
print(c);
sort(c);
writeln('Отсортированный массив');
print(c);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2019, 10:59
Ответы с готовыми решениями:

Сортировка двумерного массива по убыванию по столбцам методом пузырька
Отсортировать всю матрицу n*m по столбцам по убыванию. Проверте есть ли в этой матрице элемент,...

Найти минимальный и максимальный элементы массива и упорядочить элементы по убыванию, стоящие между ними, методом «пузырька».
Привет ВСЕМ!!! Обратите вниминие на эту задачку, ПЛЗ!!! =) Можно и без метода &quot; пузырька&quot;!!! Дан...

Методом пузырька отсортировать элементы массива, взятые из текстового файла по убыванию
написать программу, которая методом пузырька сортирует элементы массива взятых из текстового файла...

Отсортировать элементы массива, расположенные после максимального по убыванию методом пузырька
Дан массив (одномерный) отсортировать элементы массива расположеные после максимального по убыванию...

1
1965 / 674 / 486
Регистрация: 15.01.2019
Сообщений: 2,061
26.03.2019, 12:07 2
Проверено на Lazarus/Free Pascal. Работает.
0
Миниатюры
Отсортируйте отрицательные элементы двумерного массива по строкам, по убыванию, методом пузырька  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2019, 12:07

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

Отсортируйте в массиве положительные элементы по возрастанию, отрицательные – по убыванию
Задание: Отсортируйте в массиве положительные элементы по возрастанию, отрицательные – по убыванию....

Отсортируйте четные элементы массива по методу пузырька
Отсортируйте четные элементы массива по методу пузырька. var a: array of integer; i, j, n, t:...

Из промежутка [a;b) отсортируйте каждый столбец массива по убыванию методом Шелла
Объявите двумерный вещественный массив, в котором n x m элементов. Выполните генерацию массива...

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


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

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

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