1 lygis | 6 pamokėlė | 2. Kauliukai

var
    geriausais_z_nr,
    akutes,
    z_nr,
    zaideju,        //Zaideju skaicius
    m,
    metimu:         //Kiek kartu rideno kauliuka
    integer;
    sum:            //Suma iskritusiu akuciu
    array [1..10] of integer;
procedure skaityti(fpav:string);
var
    F:Text;
begin
    assign(F, fpav);
    reset(F);
    readln(F, zaideju);
    for z_nr := 1 to zaideju do
    begin
        read(F, metimu);
        for m := 1 to metimu do
        begin
            read(F, akutes);
            sum[z_nr] := sum[z_nr] + akutes;
        end;
    end;
    close(F);
end;
begin
    geriausais_z_nr := 1;

    skaityti('Duomenys.txt');

    for z_nr := 1 to zaideju do
        if sum[z_nr] > sum[geriausais_z_nr] then
            geriausais_z_nr := z_nr;

    writeln('Daugiausiai taškų surinko ', geriausais_z_nr, ' žaidėjas');
    //Readln;
end.