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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2011, 00:59   #1
elizar
 
Регистрация: 01.11.2011
Сообщений: 7
По умолчанию проблема в PASCALE с сортировкой в массиве

Дана действительная матрица A размерности (nxn) . Если сумма элементов первой строки больше произведения элементов первого столбца, то упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом просеивания. В противном случае матрицу оставить без изменения.
elizar вне форума Ответить с цитированием
Старый 01.11.2011, 01:01   #2
elizar
 
Регистрация: 01.11.2011
Сообщений: 7
По умолчанию

вот чучуть((( а вот как саму сортировку делать я без понятия, не то всегда получается

Код:
program pr;
  uses
    crt;
  var
    a : array [1..100,1..100] of integer;
    i, j, k, n, s, p, tmp  : integer;
begin
  clrscr;

  writeln('vvedite razmernost');
  readln( n );
  writeln('vvedite elementi');

  for i := 1 to n do
    for j := 1 to n do
      begin
        write('a[',i,',',j,']= ');
        readln( a[i,j] );
      end;

  s:=0;
  p:=1;

  for i := 1 to n do
    p:=p*a[i,1];

  for j := 1 to n do
    s:=s+a[1,j];

  writeln('matrica a ');
  for i := 1 to n do
    begin
      for j := 1 to n do
        write( a[i,j] : 5 );
      writeln
    end;


writeln('polycheniu rezyltat ');
  for i := 1 to n do
    begin
      for j := 1 to n do
        write( a[i,j] : 5 );
      writeln;
    end;

  writeln('summa s=',s);
  writeln('prouzvedenie p=',p);
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 01.11.2011 в 05:20.
elizar вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с сортировкой matbe14 Помощь студентам 0 29.09.2011 11:16
Проблема с нестандартной сортировкой Depressive Microsoft Office Excel 9 21.05.2011 15:14
Проблема с сортировкой Anubys Помощь студентам 0 19.04.2011 17:10
проблема с сортировкой вставками Brabus Помощь студентам 4 27.06.2010 12:27
проблема с файлами в Pascale velgelmina Помощь студентам 3 26.03.2010 23:14