--άσκηση 89

Αλγόριθμος Ασκ_89
//Δεδομένα Α//
sum <— 0
  Για j από 1 μέχρι 6
    sum <— sum + Α[3, j]
  τέλος_επανάληψης
ΜΟ <— sum/6
sum2 <— 0
  Για i από 1 μέχρι 5
    sum2 <— sum2 + A[i, 4]
  τέλος_επανάληψης
ΜΟ2 <— sum2/5
//Αποτελέσματα ΜΟ, ΜΟ2//
Τέλος Ασκ_89


--άσκηση 90

Αλγόριθμος Ασκ_90
//Δεδομένα Α//
y <— 0
found <— ψευδής
sum0 <— 0
  Για i από 1 μέχρι Ν
    Για j από 1 μέχρι Μ
      Αν (Α[i,j] = y) τότε
        found <— αληθής
        sum0 <— sum0 + 1
      τέλος_αν
    τέλος_επανάληψης
  τέλος_επανάληψης
ποσοστό <— (sum0/100)*(N*M)
  Αν ( ποσοστό > (80/100)*(N*M) ) τότε
    Εμφάνισε "Ο πίνακας είναι αραιός"
  αλλιώς
    Εμφάνισε "Ο πίνακας δεν είναι αραιός"
  τέλος_αν
Τέλος Ασκ_90


--άσκηση 95

Αλγόριθμος Καθηγητής_Ζαλίδης
  Για i από 1 μέχρι 150
    Διάβασε ΟΝΟΜΑΤΑ[i]
  τέλος_επανάληψης
  Για i από 2 μέχρι 150
    Για y από 150 μέχρι i με_βήμα -1
      Αν ( Α[y-1] > A[y] ) τότε
        temp <— A[y-1]
        A[y-1] <— A[i]
        A[i] <— temp
      τέλος_αν
    τέλος_επανάληψης
  τέλος_επανάληψης
sum20 <— 0
  Για i από 1 μέχρι 150
    Για j από 1 μέχρι Ν
      Διάβασε ΒΑΘΜΟΙ[i,j]
        Αν ( ΒΑΘΜΟΙ[i,j] = 20 ) τότε
          sum20 <— sum20 + 1
        τέλος_αν
    τέλος_επανάληψης
  τέλος_επανάληψης
  Για i από 1 μέχρι 150
    sum <— 0
      Για j από 1 μέχρι Ν
        sum <— sum + ΒΑΘΜΟΙ[i,j]
      τέλος_επανάληψης
    ΜΟ[i] <— sum/N
    Εμφάνισε ΜΟ[i]
  τέλος_επανάληψης
  Για i από 1 μέχρι 150
    sums <— sums + ΜΟ[i]
  τέλος_επανάληψης
Μ_Ο <— sums / 150
Εμφάνισε "Ο μέσος όρος όλων των εργασιών όλων των μαθητών είναι", Μ_Ο
f <— ψευδής
summ <— 0
  Για i από 1 μέχρι 150
    Για j από 1 μέχρι Ν
      Αν ( ΒΑΘΜΟΙ[i,j] > Μ_Ο ) τότε
        f <— αληθής
        summ <— summ + 1
      τέλος_αν
    τέλος_επανάληψης
  τέλος_επανάληψης
  Αν ( f = ψευδής ) τότε
    Εμφάνισε "Δεν βρέθηκαν βαθμοί > M.O."
  τέλος_αν
max <— ΒΑΘΜΟΙ[1,1]
min <— ΒΑΘΜΟΙ[1,1]
  Για i από 1 μέχρι 150
    Για j από 1 μέχρι Ν
      Αν ( ΒΑΘΜΟΙ[i,j] > max ) τότε
        max <— ΒΑΘΜΟΙ[i,j]
      τέλος_αν
      Αν ( ΒΑΘΜΟΙ[i,j] < min ) τότε
        min <— ΒΑΘΜΟΙ[i,j]
      τέλος_αν
    τέλος_επανάληψης
.
.
.
.
Τέλος Καθηγητής_Ζαλίδης