NBdata : read_matrix("noworodki.txt")$ /*wczytanie danych*/
/*Dodanie kolumny do macierzy*/
/*length(NBdata) - to liczba wierszy w macierzy NBdata*/
LiczbaW:length(NBdata)$
listaTymczasowa:makelist(i,i,1,LiczbaW)$/*tworzymy listę liczb naturalnych*/
NBdata:addcol(NBdata, listaTymczasowa)$/*doklejami listę do macierzy*/
NBdata[1,11]:"APGAR"$

/*Punkty w skali APGAR:*/
for a:2 thru LiczbaW do (/*pętla obliczajaca sumę punktow APGAR*/
    NBdata[a,11]:NBdata[a,6]
                +NBdata[a,7]
                +NBdata[a,8]
                +NBdata[a,9]
                +NBdata[a,10],
    /*zaokrąglamy masę danego noworodka*/
    NBdata[a,4]:float(round(NBdata[a,4]*100)/100)
)$
/*zapisanie macierzy w pliku (plik otwierać w notepad++)*/
write_data(NBdata ,"NBdataAPGAR.txt")$

# Obliczanie średniej

/*Obliczamy średnią dłgosc noworodka*/
/*1. tworzymy zmienna do przechowywania sumy długości*/
/*2. tworzymy licznik z zliczania noworodków*/
/*3. zerujemy licznik i sumę*/
sumaDl:0$
licznikNow:0$
sumaDlDz:0$
licznikNowDz:0$
/*4. w pętli for dodajemy do sumy kolejne długości noworodków*/
for a:2 thru length(NBdata) do (
    sumaDl : sumaDl + NBdata[a,3],
    licznikNow : licznikNow + 1,
    if NBdata[a,2] = f then (/*osobno obliczamy średnią dla kobiet*/
        sumaDlDz : sumaDlDz + NBdata[a,3],
        licznikNowDz : licznikNowDz + 1
    )
)$
/*5. dzielimy sumę przez liczbę nowotorodków*/
srednia : sumaDl / licznikNow;
sredniaDz : sumaDlDz / licznikNowDz;