Something

//Robertas Jurkaitis, 8 grupe, 3 uzduotis, 2 variantas
program uzd3;
uses crt;
var f :file of real;
    x, mn, mx, suma :real;
    z :string;
    m, n, a :integer;
    i :array[-10000000..10000000] of real;

begin
    clrscr;
    writeln('Failo pavadinimas? ');
    read(z);
    assign(f, z);
    rewrite(f);

    writeln('Iveskite norima skaiciu kieki');
    read(n);
    writeln('Iveskite realiuosius skaicius');

    for n:=1 to n do
    begin
        read(x);
        write(f, x);
    end;

//SUVEDIMAS I MASYVA

    m:=0;
    reset(f);
    while not eof(f) do
    begin
        read(f, i[m]);
        m:=m+1;
    end;
    close(f);

//MAX

    n:=m;
    mx:=i[0];
    for m:=0 to n-1 do
    begin
        if i[m]>mx then mx:=i[m];
    end;

//MAX eiles nr.

    for m:=0 to n do
    begin
        if i[m]=mx then
        begin
            a:=m+1;
            break;
        end;
        if i[0]=mx then a:=1;
        if i[n]=mx then a:=n;
    end;
    
//SUMA

    suma:=0;
    for m:=0 to a-1 do
    begin
        suma:=suma+i[m];
    end;
    suma:=suma-mx;
    if (mx=i[0])and(mx=i[m]) then suma:=0;

//MIN

    mn:=mx;
    for m:=a to n-1 do
        begin
            if i[m]<mn then
            begin
                mn:=i[m];
            end;
        end;
    if mn=mx then mn:=0;


    writeln('Didziausias elementas = ', mx:3:3);
    writeln('Suma iki pirmojo didziausio elemento = ', suma:3:3);
    writeln('Maziausias elementas, kuris yra po pirmojo didziausiojo elemento = ', mn:3:3);
    readkey;
end.