Εστω μονοδιάστατος πίνακας ακεραίων με 200 στοιχεία. Να γραφεί πρόγραμμα που να κατασκευάζει έναν δεύτερο πίνακα που να περιέχει τα στοιχεία του πρωτου με την ίδια σειρά, έχοντας όμως τα μηδενικά μαζεμένα στο τέλος του.

π.χ. Αν ο πίνακας είναι της μορφής

Α[4  54  0  32  0  28  ...  7]
ο Β να είναι της μορφής
Β[4  54  32  28  ...  0  0]

 

ΠΡΟΓΡΑΜΜΑ Πινακες

Μεταβλητές
  Ακέραιες : Χ[200], Υ[200] , ι, κ, λ

ΑΡΧΗ
  λ <-- 1
  ι <-- 1
  κ <-- 1
  Για ι απο 1 μέχρι 200

    Γράψε 'Δώσε στοιχείο'
    Διάβασε Χ[ι]
  Τέλος_Επανάληψης
  Για ι απο 1 μέχρι 200
    Αν Χ[ι]=0 τότε
      Υ[11-κ] <-- Χ[ι]
      κ <-- κ+1
    Αλλιώς
      Υ[λ] <-- Χ[ι]
      λ <-- λ+1
    Τέλος_ΑΝ
  Τέλος_Επανάληψης

  Για ι από 1 μέχρι 200
  Γράψε Υ[ι]
  Τέλος_Επανάληψης

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

!Revised by Periptero  ***email periptero at gmail dot com ***
ΠΡΟΓΡΑΜΜΑ Πινακες
ΣΤΑΘΕΡΕΣ
  N=200
Μεταβλητές
  Ακέραιες : Χ[N], Υ[N] ,Z[N], ι, κ, λ
ΑΡΧΗ
  λ <-- 0
  ι <-- 1
  κ <-- 0
  Για ι απο 1 μέχρι N
    Γράψε 'Δώσε στοιχείο'
    Διάβασε Χ[ι]
  Τέλος_Επανάληψης
  Για ι απο 1 μέχρι N
    Αν Χ[ι]=0 τότε
      Z[κ+1] <-- Χ[ι]
      κ <-- κ+1
    Αλλιώς
      Υ[λ+1] <-- Χ[ι]
      λ <-- λ+1
    Τέλος_ΑΝ
  Τέλος_Επανάληψης
  Για ι από 1 μέχρι κ
    Υ[λ+ι] <-- Z[ι]
  Τέλος_Επανάληψης
  Για ι από 1 μέχρι N
    ΓΡΑΨΕ Υ[ι]
  Τέλος_Επανάληψης
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ