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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2017, 22:57   #1
Андрей3636
Пользователь
 
Регистрация: 24.10.2017
Сообщений: 11
По умолчанию Упорядочить все строки матрицы по числу элементов, кратных 3, т.е. на первое место поставить строку с наименьшим числом таких элементов

Упорядочить все строки матрицы по числу элементов, кратных 3, т.е. на первое место поставить строку с наименьшим числом таких элементов и т.д., на последнее место - с наибольшим числом таких элементов.

Помогите очень нужно
Андрей3636 вне форума Ответить с цитированием
Старый 24.10.2017, 23:06   #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 вне форума Ответить с цитированием
Старый 25.10.2017, 12:26   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..8,1..10] of integer;
    c:array[1..8] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 8 do
   begin
      c[i]:=0;
      For j:=1 to 10 do
         If p[i,j] mod 3=0 then
            Inc(c[i]);
   end;
   Repeat
      d:=true;
      For i:=2 to 8 do
         If c[i-1]>c[i] then
         begin
            d:=false;
            z:=c[i];
            c[i]:=c[i-1];
            c[i-1]:=z;
            For j:=1 to 10 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 8 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln('- ',c[i]);
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить все строки, сумма элементов которых является двузначным числом. ggjgj Общие вопросы C/C++ 1 24.11.2016 18:51
Упорядочить строки матрицы по возрастанию их первых элементов Андрей_Андрей C++ Builder 1 10.04.2015 20:01
C++ Упорядочить строки матрицы D (m. n) Лексикографически по неубыванию первых k элементов строки Анатолий171 Помощь студентам 123 04.07.2014 18:46
заданной прямоугольной матрице поставить на первое место столбец с наименьшим количеством нулевых элементов (Паскаль, Фортран) HuBuDuMkA Помощь студентам 0 21.12.2011 22:37
Процедуры - вычислить количество элементов матрицы,кратных 5 и заменить на 0 все четные элементы матрицы Ksenichka Помощь студентам 1 19.05.2011 14:38