ΠΡΟΓΡΑΜΜΑ Στατιστική
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Ν, Χ[100], Άθροισμα, Άθροισμα_2, Βοηθητική
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΤ, Τυπ_Απόκλιση, Διάμεσος
ΑΡΧΗ
! Εισαγωγή δεδομένων
  ΓΡΑΨΕ "Δώσε το πλήθος των αριθμών (μέγιστο 100)"
  ΔΙΑΒΑΣΕ Ν
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ "Δώσε τον ", i, "-το αριθμό"
    ΔΙΑΒΑΣΕ Χ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Υπολογισμός αθροισμάτων
  Άθροισμα <- 0
  Άθροισμα_2 <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    Άθροισμα <- Άθροισμα + Χ[i]
    Άθροισμα_2 <- Άθροισμα_2 + Χ[i]^2
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Υπολογισμός μέσου όρου
  ΜΤ <- Άθροισμα/Ν
!Υπολογισμός τυπικής απόκλισης
  Τυπ_Απόκλιση <- Τ_Ρ(Άθροισμα_2/Ν - ΜΤ^2) 
!Ταξινόμηση των στοιχείων του πίνακα
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Χ[j - 1] > Χ[j] ΤΟΤΕ
! Αντιμετάθεση των στοιχείων j και j-1
        Βοηθητική <- Χ[j - 1] 
        Χ[j - 1] <- Χ[j] 
        Χ[j] <- Βοηθητική
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ! j
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! i
!Υπολογισμός διαμέσου
  ΑΝ Ν mod 2 = 0 ΤΟΤΕ
    Διάμεσος <- (Χ[Ν div 2] + Χ[(Ν div 2) + 1])/2
  ΑΛΛΙΩΣ
    Διάμεσος <- Χ[(Ν + 1) div 2] 
  ΤΕΛΟΣ_ΑΝ
! Εκτύπωση αποτελεσμάτων
  ΓΡΑΨΕ "ΑΠΟΤΕΛΕΣΜΑΤΑ"
  ΓΡΑΨΕ "============"
  ΓΡΑΨΕ "Πλήθος τιμών =", Ν
  ΓΡΑΨΕ "Μέση τιμή = ", ΜΤ
  ΓΡΑΨΕ "Τυπική απόκλιση = ", Τυπ_Απόκλιση
  ΓΡΑΨΕ "Διάμεσος = ", Διάμεσος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ