1 lygis | 6 pamokėlė| 5. Uždavinių sprendimo varžybos

var
    m,          //mokinio nr.
    mokiniu,    //mokiniu sk.
    uzd,        //uzdaviniu per diena.
    d,          //dienos nr.
    dn,         //kiek dienu mokinys sprende uzd.
    isviso:
    integer;
    sum : array [1..10] of integer;

procedure skaityti(failas:string);
var
    F : text;
begin
    assign(F, failas);
    reset(F);
    readln(F, mokiniu);
    for m := 1 to mokiniu do
    begin
        read(F, dn);
        for d := 1 to dn do
        begin
            read(F, uzd);
            sum[m] :=sum[m] + uzd;
        end;
    end;
    close(F);
end;

procedure irasyti(failas:string);
var
    F : text;
begin
    assign(F, failas);
    rewrite(F);
    isviso := 0;
    for m := 1 to mokiniu do
    begin
        writeln(F, sum[m]);
        isviso := isviso + sum[m];
    end;
    write(F, isviso);
    close(F);
end;

begin
    skaityti('Duomenys.txt');
    irasyti('Rezultatai.txt');
end.