1 lygis | 3 pamokėlė | Kalėdinės eglutės

type masyvas = array[1..100] of integer;
var
    n, i, sum : integer;
    vid : real;
    ugiai : masyvas;
begin
    Writeln('Kiek eglučių atvežta?');
    Readln(n);
    Writeln('Įveskite jų ūgius:');
    for i := 1 to n do
        Readln(ugiai[i]);

    sum := 0;
    for i := 1 to n do
        sum := sum+ugiai[i];
    vid := sum/n;

    writeln ('Eglutės aukščio vidurkis: ',vid:4:1,' cm');
end.