Массивы А и В сортировать по убыванию

@Алиса_11 · Регистрация: 25.06.2011

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

очень сложное задание для меня, помогите пожалуйстаа, это крик о помощи....

регулярный тип. А - массив минимальных четных элементов строк матрикс ( ноль при отсутствии четных элементов в строке); В - количество элементов кратных трем по столбцам матрикс. А и В сортировать по убыванию

@Step_UA · 26.06.2011, 01:33

Возможно не правильно понял задание ... Mas - исходный массив, размерностью MxN, тогда А размерностью M, В размерностью N

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
var
 mas:array [1..10,1..10] of integer;
 a,b:array [1..10] of integer;
 t,m,n,i,j:integer;
 f:boolean;
begin
 write('Введите размерность M х N: ');
 readln(m,n);
 for i:=1 to n do b[i]:=0;
 for i:=1 to m do
  begin
   write('Строка ',i,': ');
   f:=true;
   for j:=1 to n do
    begin
     read(mas[i,j]);
     if (mas[i,j] mod 2=0) and (f or (not(f) and (a[i]>mas[i,j])))
      then
       begin
        f:=false;
        a[i]:=mas[i,j]
       end;
     if mas[i,j] mod 3=0 then inc(b[j])
    end;
   if f then a[i]:=0
  end;
 Write('A= ');
 for i:=1 to m-1 do
  begin
   t:=i;
   for j:=i+1 to m do
    if a[j]>a[t] then t:=j;
   j:=a[i];
   a[i]:=a[t];
   a[t]:=j;
   write(a[i]:8)
  end;
 writeln;
 write('B= ');
 for i:=1 to n-1 do
  begin
   t:=i;
   for j:=i+1 to n do
    if b[j]>b[t] then t:=j;
   j:=b[t];
   b[t]:=b[i];
   b[i]:=t;
   write(b[i]:8)
  end;
 readln
end.

отлаживайте сами уж ...

@Алиса_11 · 26.06.2011, 17:25 **[ТС]**

большущее вам спасибо!!!

Добавлено через 7 часов 53 минуты
мне вот только ошибку показывает, инвалид перед строчкой readln(m,n); не знаю как исправить...

@Puporev · 26.06.2011, 19:31

Алиса_11, В программе нет синтаксических ошибок. Тщательно проверяйте свой код по написанному Step_UA

@Алиса_11 · 26.06.2011, 22:02 **[ТС]**

попробую еще разок

@Puporev · 26.06.2011, 22:08

Алиса_11, Вы код не переписывайте, а копируйте в Блокнот и сохраняйте с расширением .pas.
Это и будет уже файл программы.

@Алиса_11 · 26.06.2011, 22:15 **[ТС]**

invalid numeric format. как понимать, неправильно числа ввожу, или может быть знак умножения не тот.....

Добавлено через 5 минут
у меня ничего не получется(((

@Step_UA · 26.06.2011, 22:21

вводите M и N через пробел . Подозреваю что вы вводите через запятую

@Алиса_11 · 26.06.2011, 22:27 **[ТС]**

через пробел, потом появляется строка 1, что с ней делать?

@Puporev · 26.06.2011, 22:36

Вот ввели Вы размер матрицы например 4 3
Строка 1, введите 3 целых числа через пробел, появится Строка 2, то же самое...

@Алиса_11 · 26.06.2011, 22:40 **[ТС]**

получается что-то, наверно надо процедуру паузы поставить, чтобы массивы посмотреть

@Puporev · 26.06.2011, 22:42

Так в коде же написано

Pascal
1
2
 readln//пока не нажмете Enter, программа не завершится. Мало одного, напишите 2.
end.

@Алиса_11 · 27.06.2011, 13:54 **[ТС]**

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

Добавлено через 15 часов 2 минуты
просмотр результата не получается. только после повторного запуска его видно

@Step_UA · 27.06.2011, 13:57

нажмите alt+f5 ...

@Алиса_11 · 27.06.2011, 14:01 **[ТС]**

СПАСИБО!!! благодаря вам, я поняла, как это решение делается!

@Puporev · 27.06.2011, 14:02

Странно, есть же в конце readln. Видно жмет что попало не задумываясь...

@Алиса_11 · 27.06.2011, 14:06 **[ТС]**

нет, я думаю, что делаю

@Step_UA · 27.06.2011, 14:10

после

Pascal
1
   if f then a[i]:=0

вставьте

Pascal
1
2
;
readln

писал же - отлаживайте сами

@Алиса_11 · 27.06.2011, 17:06 **[ТС]**

такая я невнимательная! спасибо!
всё идет, осталось только сдать!

интересно, работа у вас тоже с программированием связана?

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18

	Массивы А и В сортировать по убыванию 26.06.2011, 00:29. Показов 1141. Ответов 18 Метки нет (Все метки) очень сложное задание для меня, помогите пожалуйстаа, это крик о помощи.... регулярный тип. А - массив минимальных четных элементов строк матрикс ( ноль при отсутствии четных элементов в строке); В - количество элементов кратных трем по столбцам матрикс. А и В сортировать по убыванию 0

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	26.06.2011, 17:25 [ТС]
	большущее вам спасибо!!! Добавлено через 7 часов 53 минуты мне вот только ошибку показывает, инвалид перед строчкой readln(m,n); не знаю как исправить... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.06.2011, 19:31
	Алиса_11, В программе нет синтаксических ошибок. Тщательно проверяйте свой код по написанному Step_UA 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	26.06.2011, 22:02 [ТС]
	попробую еще разок 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.06.2011, 22:08
	Алиса_11, Вы код не переписывайте, а копируйте в Блокнот и сохраняйте с расширением .pas. Это и будет уже файл программы. 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	26.06.2011, 22:15 [ТС]
	invalid numeric format. как понимать, неправильно числа ввожу, или может быть знак умножения не тот..... Добавлено через 5 минут у меня ничего не получется((( 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	26.06.2011, 22:21
	вводите M и N через пробел . Подозреваю что вы вводите через запятую 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	26.06.2011, 22:27 [ТС]
	через пробел, потом появляется строка 1, что с ней делать? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.06.2011, 22:36
	Вот ввели Вы размер матрицы например 4 3 Строка 1, введите 3 целых числа через пробел, появится Строка 2, то же самое... 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	26.06.2011, 22:40 [ТС]
	получается что-то, наверно надо процедуру паузы поставить, чтобы массивы посмотреть 0

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	27.06.2011, 13:54 [ТС]
	надо учить было предмет, такой сложный... у меня вылетает когда набираю числа, как увидеть результат конечный? Добавлено через 15 часов 2 минуты просмотр результата не получается. только после повторного запуска его видно 0

@Step_UA 1591 / 664 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	27.06.2011, 13:57
	нажмите alt+f5 ... 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	27.06.2011, 14:01 [ТС]
	СПАСИБО!!! благодаря вам, я поняла, как это решение делается! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	27.06.2011, 14:02
	Странно, есть же в конце readln. Видно жмет что попало не задумываясь... 1

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	27.06.2011, 14:06 [ТС]
	нет, я думаю, что делаю 0

@Алиса_11 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 18
	27.06.2011, 17:06 [ТС]
	такая я невнимательная! спасибо! всё идет, осталось только сдать! интересно, работа у вас тоже с программированием связана? 0