#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//Начало говнокода
const int n=7;
typedef float AType[n];
float f(AType A) {
        int i;
        float M=A[0];
        for(i = 1; i < 7; i++) {
                if(M>A[i]) {
                        M = A[i];
                }
        }
        return M;
}
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        AType A;
        int i;
        float M;
        for(i = 0; i < 7; i++) {
                A[i] = StrToFloat(Memo1->Lines->Strings[i]);
        }
        M = f(A);
        Edit1->Text = FormatFloat("0.0", M);
}