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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2016, 11:48   #1
kiryavolk
 
Регистрация: 15.12.2016
Сообщений: 7
По умолчанию Расположить столбцы в порядке возрастания количества положительных элементов Паскаль

Матрица A[M,N].
Расположить столбцы в порядке возрастания количества положительных элементов.

Последний раз редактировалось Аватар; 16.12.2016 в 12:10. Причина: заголовок
kiryavolk вне форума Ответить с цитированием
Старый 18.12.2016, 12:18   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const m=10;
      n=8;
var i,j,k,c,z,j0:integer;
    a:array[1..m,1..n] of integer;
    count:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=-10+Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to n do
   begin
      count[j]:=0;
      For i:=1 to m do
         If a[i,j]>0 then
            Inc(count[j]);
   end;
   j0:=1;
   For c:=0 to m do
      For j:=j0 to n do
         If count[j]=c then
         begin
            For i:=1 to m do
            begin
               z:=a[i,j];
               For k:=j downto j0+1 do
                  a[i,k]:=a[i,k-1];
               a[i,j0]:=z;
            end;
            Inc(j0);
         end;
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(a[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Задача на графику..помогите доделать(( Diamond2107 Помощь студентам 8 17.05.2009 18:24
ПАСКАЛЬ - примитивная задача, помогите ketrinlt Помощь студентам 5 07.09.2008 19:21
Помогите решить: задача на записи (Паскаль) mpegable Помощь студентам 1 25.05.2008 17:44