Задание на сортировку (2 способа)

@Yano4ka · Регистрация: 01.04.2010

Студворк — интернет-сервис помощи студентам

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

@Жека-старший · 01.04.2010, 18:40

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
47
48
49
program pr1;
type tmati=array[1..100,1..100] of integer;
     tmasi=array[1..100] of integer;
var a:tmati; mas:tmasi; n,m,i,j:byte; pr:boolean; cop:integer;
begin
  writeln('Введите размерность матрицы');
  readln(n,m);
  for i:=1 to n do
     for j:=1 to m do
     begin
       writeln('Введите ',i,' элемент ',j,' столбца');
       readln(a[i,j]);
     end;
  for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:5);
    writeln;
  end;
  writeln;
  j:=0;
  for i:=1 to m do
  begin
    if a[i,1] >0 then begin
                       inc(j);
                       mas[j]:=a[1,i];
                    end;
    if a[n,i]>0 then begin
                       inc(j);
                       mas[j]:=a[n,i];
                    end;
  end;
  pr:=true;
  while pr do
  begin
    pr:=false;
    for i:=1 to j do
       if mas[i]<mas[i+1] then begin
                              cop:=mas[i];
                              mas[i]:=mas[i+1];
                              mas[i+1]:=cop;
                              pr:=true;
                               end;
  end;
  writeln('Массив из строк');
  for i:=1 to j do
  write(mas[i],', ');
  writeln;
end.

вот мой вариант...
блок схему я попробую, но честно не обещаю...
если смогу вспомнить...

@Yano4ka · 01.04.2010, 19:15 **[ТС]**

спасибо=)))...

Добавлено через 46 секунд
а можно второй ещё вторым способом???=(((

@Жека-старший · 01.04.2010, 21:26

другим...посмотрю

Добавлено через 21 минуту
глубоко извиняюсь исправте строку 24 на

Pascal
1
if a[1,i] >0 then begin

вот второй вроде

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
47
48
49
50
51
52
program pr1;
type tmati=array[1..100,1..100] of integer;
     tmasi=array[1..100] of integer;
var a:tmati; mas:tmasi; n,m,i,j:byte; pr:boolean; cop:integer;
(*процедура сортировки*)
procedure pr_sor(var mas:tmasi; n:byte);
var mm,j:byte; cop:integer;
begin
  for i:=1 to n do
  begin
    mm:=1;
    for j:=1 to n-i+1 do
    if mas[j]<mas[mm] then mm:=j;
    cop:=mas[n-i+1];
    mas[n-i+1]:=mas[mm];
    mas[mm]:=cop;
  end;
end;
begin
  writeln('Введите размерность матрицы');
  readln(n,m);
  for i:=1 to n do
     for j:=1 to m do
     begin
       writeln('Введите ',i,' элемент ',j,' столбца');
       readln(a[i,j]);
     end;
  for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:5);
    writeln;
  end;
  writeln;
  j:=0;
  for i:=1 to m do
  begin
    if a[1,i]>0 then begin
                       inc(j);
                       mas[j]:=a[1,i];
                    end;
    if a[n,i]>0 then begin
                       inc(j);
                       mas[j]:=a[n,i];
                    end;
  end;
  pr_sor(mas,j);
  writeln('Массив из строк');
  for i:=1 to j do
  write(mas[i],', ');
  writeln;
end.

Добавлено через 1 час 32 минуты

37 строка в первом варианте-- исправь...

Pascal
1
 for i:=1 to j-1 do

@Жека-старший · 01.04.2010, 21:35

думаю блок схема для 1-го варианта такая...

@Yano4ka · 01.04.2010, 21:42 **[ТС]**

спасибо большое=))))))))

@Жека-старший · 01.04.2010, 21:46

пожалуйста))

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Yano4ka 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 6

	Задание на сортировку (2 способа) 01.04.2010, 17:31. Показов 810. Ответов 6 Метки нет (Все метки) Дана прямоугольная матрица. Сформировать из положительных элементов матрицы, расположенных в первой и последней строках, новый одномерный массив. Полученный массив сортировать в порядке убывания элементов. Пожалуйста, помогите....очень срочно нужно...двумя способами и блок схемы, если можно... 0

@Yano4ka 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 6
	01.04.2010, 19:15 [ТС]
	спасибо=)))... Добавлено через 46 секунд а можно второй ещё вторым способом???=((( 0

@Yano4ka 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 6
	01.04.2010, 21:42 [ТС]
	спасибо большое=)))))))) 0

@Жека-старший Студент 498 / 344 / 162 Регистрация: 15.03.2010 Сообщений: 601
	01.04.2010, 21:46
	пожалуйста)) 0