|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2013, 21:47 | #1 |
Регистрация: 04.04.2012
Сообщений: 9
|
Прошу помочь с программой
Прошу сделать код до 26.12.13.
Дана целочисленная прямоугольная матрица. Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент (оформить в виде функции). 2) Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик (оформить в виде процедуры). Спасибо! Вот мой код, но он корявый, поэтому прошу написать новый код(полностью). procedure perest(var a:matr); procedure swap(var a, b: integer); var T: integer; begin T := a; a := b; b := T; end; var mas: array[1 .. n] of integer; i, j, k: integer; begin for i := 1 to n do mas[i] := 0; for i := 1 to n do for j := 1 to m do if (a[i,j] < 0) and not (odd(a[i,j])) then mas[i]:=mas[i]+a[i,j]; for i := 1 to m do for j := m downto i + 1 do begin if mas[pred(j)] > mas[j] then begin swap(mas[pred(j)], mas[j]); for k := 1 to n do begin swap(a[pred(j), k], a[j, k]); end; end end; end; Последний раз редактировалось MASTER116; 25.12.2013 в 21:50. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прошу Помочь) | Fhntvrf1 | HTML и CSS | 5 | 02.12.2013 20:12 |
Алгоритмы. Не прошу решить. Прошу помочь! | pascaluser | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 12.10.2012 08:45 |
Прошу помочь) | Егоргий | Помощь студентам | 3 | 03.06.2012 20:34 |
Прошу помочь! | DeusGPZ | Общие вопросы C/C++ | 4 | 17.10.2011 13:01 |
Прошу помочь с программой на Shell и системными вызовами. | Osinin | Помощь студентам | 7 | 28.08.2009 18:42 |