Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

2. Дана матрица размера M*N. Найти максимальный среди минимальных элементов ее строк. Для отладки программы элементы матрицы сформировать с помощью генератора случайных чисел.

86K
09 декабря 2012 года
Николай Ванюков
6 / / 09.12.2012
Дана матрица размера M*N. Найти максимальный среди минимальных элементов ее строк.
Для отладки программы элементы матрицы сформировать с помощью генератора случайных чисел.
392
09 декабря 2012 года
cronya
421 / / 03.01.2009
приятно вспомнить школьный курс :)
Код:
const
     n=5;
     m=6;
var
   mas: array[0..n,0..m] of integer;
   idx, jdx, MaxInMin, Min: integer;
begin
     Randomize;
     for idx:=0 to n do
     begin
          for jdx:=0 to m do
          begin
               mas[idx][jdx]:=Random(10);
          end;
     end;
     for idx:=0 to n do
     begin
          for jdx:=0 to m do
          begin
               Write(mas[idx][jdx],' ');
          end;
          Writeln('');
     end;
     MaxInMin:=0;
     for idx:=0 to n do
     begin
          Min:=mas[idx][0];
          for jdx:=0 to m do
          begin
               if(mas[idx][jdx]<Min) then Min:=mas[idx][jdx];

          end;
          Writeln('Minimum in ',idx+1, ' row = ',Min);
          if(Min > MaxInMin) then MaxInMin:=Min;
     end;
     Writeln('Maximum in row minimum = ',MaxInMin);
     Readln;
end.
86K
09 декабря 2012 года
Николай Ванюков
6 / / 09.12.2012
Спасибо!!!
86K
10 декабря 2012 года
lafesta
8 / / 23.11.2012
три раза по одному массиву ходить...накладно
86K
10 декабря 2012 года
lafesta
8 / / 23.11.2012
Код:
const
  n=5;
  m=6;

var
  mas: array[0..n,0..m] of integer;
  idx, jdx, MaxInMin, Min: integer;

begin
     Randomize;
     MaxInMin:=Low(integer);
     for idx:=0 to n do
     begin
          Min:=High(integer);
          for jdx:=0 to m do
          begin
               mas[idx][jdx]:=Random(10);
               Write(mas[idx][jdx],' ');
               if(mas[idx][jdx]<Min) then Min:=mas[idx][jdx];

          end;
          Writeln(' Minimum in row = ',Min);
          Writeln('');
          if(Min > MaxInMin) then MaxInMin:=Min;
     end;
     Writeln('Maximum in row minimum = ',MaxInMin);
     Readln;
end.
392
10 декабря 2012 года
cronya
421 / / 03.01.2009
Цитата: lafesta
три раза по одному массиву ходить...накладно

чем накладно? сделал три цикла, чтобы было лучше видно и последующего выноса в процедуры или функции, это не диплом а обучающий пример.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог