Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2017, 01:10   #1
dizz3r
 
Регистрация: 18.10.2017
Сообщений: 4
По умолчанию прямоугольная матрица, подмога

Дана целочисленная прямоугольная матрица. Определить номер первого из
столбцов, содержащих хотя бы один нулевой элемент.
Характеристикой строки целочисленной матрицы назовем сумму ее отрица-
тельных четных элементов. Переставляя строки заданной матрицы, расположить
их в соответствии с убыванием характеристик.
dizz3r вне форума Ответить с цитированием
Старый 29.11.2017, 01:11   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 03.12.2017, 08:51   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..10,1..8] of integer;
    m:array[1..10] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 8 do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 8 do
   begin
      d:=false;
      For i:=1 to 10 do
         If p[i,j]=0 then
         begin
            d:=true;
            Break;
         end;
      If d then
      begin
         Writeln(j);
         Break;
      end;
   end;
   Writeln;
   For i:=1 to 10 do
   begin
      m[i]:=0;
      For j:=1 to 8 do
         If (j mod 2=0) and (p[i,j]<0) then
            m[i]:=m[i]+p[i,j];
      Write(m[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to 9 do
         If m[i]<m[i+1] then
         begin
            d:=false;
            z:=m[i];
            m[i]:=m[i+1];
            m[i+1]:=z;
            For j:=1 to 8 do
            begin
               z:=p[i,j];
               p[i,j]:=p[i+1,j];
               p[i+1,j]:=z;
            end;
         end;
   Until d;
   For i:=1 to 10 do
   begin
      For j:=1 to 8 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   For i:=1 to 10 do
      Write(m[i]:3,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 03.12.2017, 11:06   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

newerow1989 люто крушит все предупреждения Alex11223 и стойко помогает лентяям-двоечникам оставаться такими же тумаками. Так держать, меньше конкурентов будет
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не прямоугольная матрица малхаз Помощь студентам 1 15.02.2014 18:09
прямоугольная матрица Avvakymova Паскаль, Turbo Pascal, PascalABC.NET 8 08.05.2011 14:03
прямоугольная матрица с++ MaZaHaKeR Помощь студентам 2 21.11.2010 16:39
Прямоугольная матрица... ZooX Помощь студентам 3 26.05.2010 19:10