Дана действительная матрица размером n х m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k,b:integer;
f:boolean;
 
function max(k:integer):integer;
var j,s,m:integer;
begin
 m:=1;
 for j:=1 to m do if a[k,j]>a[k,m] then m:=i;
 max:=m;
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   a[i,j]:=-20+random(60);
   write(a[i,j]:4);
  end;
  writeln;
 end;
 
 for i:=1 to n do writeln('Максимальный элемент в ',i,'-й строке A[',i,' ',max(i),' = ',a[i,max(i)]);
 readln;
end.

var   n:Integer; mn:Double; mj:Integer;
                 mx:Double;
                 mxi,          
                 mxj:Integer;
                 i,j:Integer;
                 T:array of array of Double;
 n:=Length(T);
   mx:=T[0,0];
   mxi:=0;
   mxj:=0;
   for i:=0 to N-1 do
   begin //Должен быть
       mn:=T[i,0];
       mj:=0;
       begin
         for j:=0 to n-1 do
               if mn>T[i,j] then  
               begin
                 mn:=T[i,j];
                 mj:=j;
               end;
         if mx<mn then
         begin
           mx:=mn;
           mxi:=i;
           mxj:=mj;
         end;
       end;
   end;

de: #pascal
const n=8;{количество строк}
       m=10;{количество столбцов}
Var a: array [1..n,1..m] of real;{данная матрица}
    i,j,k,l,v:integer;
    minj,maxi:real;
BEGIN
{заполнение матрицы произвольными положительными действительными числами от 0 до 99}
randomize;
For i:=1 to n do
 For j:=1 to m do
   a[i,j]:=random(100);
maxi:=-1;{так как все числа положительные (мы сами так заполнили)}
For i:=1 to n do begin
 minj:=a[i,1];{предположим что первый элемент каждой i-ой строки минимальный}
 For j:=2 to m do
  {сравниваем все остальные элементы строки с уже найденным минимальным}
  If a[i,j]<minj then begin{если он меньше уже найденного то}
                     minj:=a[i,j];{он минимальный}
                     v:=j;{сохраняем его номер столбца}
                    end;
{проверяем только что полученный элемент на максимум}
 If minj>maxi then begin{если верно то сохраняем его и его индексы}
                   k:=i;
                   l:=v;
                   maxi:=minj;
                 end;
end;
{Выводим искомый элемент и его индексы хоть в едите хоть в лабеле}
 
END.

Политика «шоковой терапии» представляет собой экономические реформы, применявшиеся после распада СССР в 1991 году. В процессе перехода страны от командной системы отношений к рыночной, экономическое положение оценивалось как критическое, наблюдался острый дефицит товаров, в том числе и продуктов питания. Основной задачей «шоковой терапии» была либерализация цен,  т.е.  цены  на  большинство  товаров  освободили  от централизованного контроля, функция ценообразования должна была осуществляться, исходя из соотношения спроса и предложения, и принципов конкуренции. Кроме того, была проведена либерализация торговли, выведя из-под государственного контроля передав ее в деятельность частных организаций.

Потребности человека наглядно демонстрирует пирамида А. Маслоу. Где по нисходящей представлены следующие потребности человека:
Потребности в самоутверждении (саморазвитие и самореализация)
Потребности в уважении (самоуважение, признание, статус)
Социальные потребности (любовь, духовная близость)
Потребности самосохранения (безопасность, защищенность)  
Физиологические потребности (голод, жажда)
От уровня развития экономики зависит уровень науки, культуры, искусства, образования, здравоохранения и т.д. Экономика призвана удовлетворять общественные потребности. Таким образом экономика удовлетворяет все потребности, представленные в пирамиде, напрямую - такие потребности как физиологические (приобретение пищи) или потребности самосохранения (покупка жилья), косвенно - социальные потребности (духовное удовлетворение путём покупки билета в театр) или потребности в уважении (человек, занимающий руководящий пост, получающий большую зарплату, обеспечен признанием в обществе).