masm
model small
.data
 message1 db  10,13, 'Primary array : $',10,13
 message2 db 10,13, 'Sorted array : $',10,13
 promt    db 10,13,10,13,'Press any key to exit...$'
 len equ 9
 mas dw 2,7,4,0,1,9,3,6,5,8
 tmp dw 0
 i dw 0
 j dw 0
.stack
.code 


main:
  mov ax,@data
  mov ds,ax
  mov ah,9
  mov dx,offset message1
  int 21h
 
  mov cx,10
  mov si,0

_outputArray:
  mov ah,2
  mov dx,mas[si]
  add dl,30h
  int 21h
  add si,2
  loop _outputArray

  ; for (i=0;i<9;i++)
  ;  for (j=9;j>i;j--)
  ;    if (mas[i]>mas[j])
  ;      {tmp=mas[i];
  ;      mas[i]=mas[j];
  ;      mas[j]=tmp;}
  
 sort:
   mov j,9
   jmp cyclj
     xchng:
       mov bx,i
       shl bx,1
       mov ax,mas[bx]
	   mov bx,j
	   shl bx,1
	   cmp ax,mas[bx]
	   jle lesser 
       mov tmp,ax
       mov ax,mas[bx]
       mov bx,i
       shl bx,1
       mov mas[bx],ax
       mov bx,j
       shl bx,1
       mov ax,tmp
       mov mas[bx],ax
     lesser:
       dec j
       cyclj:
       mov ax,j
       cmp ax,i
       jg xchng
       inc i
       cmp i,len
       jl sort
  mov ah,9
  mov dx, offset message2
  int 21h
  mov cx,10
  mov si,0
 _outputSortedArray:
  mov dx,mas[si]
  add dl,30h
  mov ah,2
  int 21h
  add si,2
  loop _outputSortedArray
  
  mov ah,9
  mov dx,offset promt
  int 21h
  mov ah,1
  int 21h
  
  mov ah,4ch
  int 21h

end main

//---------------------------------------------------------------------------
#include <iostream>
# include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int i, j, k, n, is_null;
 float tmp;
 char c;
 FILE *fp;
 float **mas;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{
        is_null=1;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::RazmerClick(TObject *Sender)
{
      for (i=0;i<SG1->ColCount;i++)
        for (j=0;j<SG1->RowCount;j++)
          {SG1->Cells[i][j]="";
           SG1->Cells[i][j].Delete(i,1);
          }
       SG1->ColCount = StrToInt(Edit1->Text);
     }
//---------------------------------------------------------------------------
void __fastcall TForm1::MaxClick(TObject *Sender)
{
    if (is_null!=1)  //î÷èñòèòü ïàìÿòü îò ñòàðîãî ìàññèâà
    {
     for(i=0; i<n; i++)  delete[] mas[i];
     delete[] mas;
    }

    //íîâîå êîëè÷åñòâî ýë-òîâ
   n = StrToInt(Edit1->Text);
   mas = new float *[n];
   for (i = 0; i < n; i++)
     mas[i] = new float [n];

   //ñ÷èòûâàíèå èç String Grid 1 â ìàññèâ
   for (i=0; i<n; i++)
   for (j=0; j<n; j++)
     { if (SG1->Cells[i][j]!="")
         mas[j][i]=StrToFloat(SG1->Cells[i][j]);
       else mas[j][i]=0;
     }

     //ïîèñê ìàêñèìàëüíîãî çíà÷åíèÿ

   i=0;
    for (j=0; j<n; j++)
     {
      if (mas[i][j]>tmp)
        tmp = mas[i][j];
     }
    //âûâîä â String Grid 2

   Edit2->Text = FloatToStr(tmp);

   //ðåçóëüòàò ïîèñêà â òåêñòîâûé ôàéë
   fp = fopen("max.txt", "w");
     {
      fprintf(fp," %.2f  ",tmp);
      fprintf(fp,"\n");
     }
   fclose(fp);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (is_null!=1)   //åñëè ïàìÿòü ïîä ìàññèâ âûäåëåíà, îñâîáîäèòü
  {
    for(i=0; i<StrToInt(Edit1->Text); i++)  delete[] mas[i];
    delete[] mas;
  }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::MinClick(TObject *Sender)
{
    if (is_null!=1)  //î÷èñòèòü ïàìÿòü îò ñòàðîãî ìàññèâà
    {
     for(i=0; i<n; i++)  delete[] mas[i];
     delete[] mas;
    }

    //íîâîå êîëè÷åñòâî ýë-òîâ
   n = StrToInt(Edit1->Text);
   mas = new float *[n];
   for (i = 0; i < n; i++)
     mas[i] = new float [n];

   //ñ÷èòûâàíèå èç String Grid 1
   for (i=0; i<n; i++)
   for (j=0; j<n; j++)
     { if (SG1->Cells[i][j]!="")
         mas[j][i]=StrToFloat(SG1->Cells[i][j]);
       else mas[j][i]=0;
     }

     //ïîèñê ìèíèìàëüíîãî çíà÷åíèÿ

   i=0;
     for (j=0; j<n; j++)
     {
      if (mas[i][j]<tmp)
       tmp = mas[i][j];
     }

    //âûâîä â Edit3
    Edit3->Text = FloatToStr(tmp);

   //ðåçóëüòàò ïîèñêà â òåêñòîâûé ôàéë
   fp = fopen("min.txt", "w");
     {
      fprintf(fp," %.2f  ",tmp);
      fprintf(fp,"\n");
     }
   fclose(fp);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N2Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

unit unitd;
Interface
uses crt;
type massiv=array[1..100,1..100] of real;
     massiv1=array[1..100] of real;
Implementation
procedure matri(var a:massiv);
procedure Matr_Prakt(a:massiv; var koor:massiv1);
procedure Funkcia(koor:massiv1);

procedure matri;
var
i,j:byte;
function new:real;
begin
 new:=((2-sqr(i-3))/i)*(j-5.7);
 end;
begin
clrscr;
for i:=1 to 10 do
 for j:=1 to 10 do
 a[i,j]:=new;
for i:=1 to 10 do begin
 writeln;
 for j:=1 to 10 do
 write(a[i,j]:8:2);
 end;
 readkey;
end;


procedure Matr_Prakt;
type massiv=array[1..100,1..100] of integer;
     massiv1=array[1..500] of integer;
var   q,n,n1,max_stolb:integer;
i,j:byte;
       x:massiv1;



begin
i:=1;
max_stolb:=1;
for j:=2 to N do
if a[i,j]>a[i,j-1] then max_stolb:=j;

for i:=1 to N do
for j:=1 to N do
koor[i]:=koor[i]+a[i,j]*a[j,max_stolb];

write('a(',koor[1]);
for i:=2 to n do
write(',',koor[i]);
write(')');
writeln;
writeln;
readln;
end;


procedure Funkcia;
var U:real;
qwer,a,i,n,chisl,znam:integer;
q1,q2:real;

function F(b:real; var a:real):integer;

begin
a:=a+b;
end;

begin
for i:=1 to n do
if koor[i]<=1 then f(koor[i],q1);
for i:=1 to n do
if koor[i]>1 then f(koor[i],q2);

U:=(1+q1)/(2+q2);
writeln(u);
readln;
writeln;
writeln;
end;

begin
matri;
Matr_Prakt;
Funkcia;
end.