Άσκηση : διαχωρισμός δισδιάστατου πίνακα

Γράψτε αλγόριθμο που, με δεδομένο τον πραγματικό πίνακα
Α[50, 30], αντιγράφει τα στοιχεία των άρτιων γραμμών του
πίνακα αυτού στον πραγματικό πίνακα Β[25, 30] και τα
στοιχεία των περιττών γραμμών του Α στον πραγματικό
πίνακα Γ[25, 30].

Λύση

      Αλγόριθμος Διαχ
      Δεδομένα // Α //
      μ <-- 1
      ξ <-- 1
      Για κ από 1 μέχρι 50
          Για λ από 1 μέχρι 30
              Αν κ mod 2 = 0 τότε
                    Β[μ, λ] <-- Α[κ, λ]
                    Αν λ = 30 τότε
                         μ <-- μ+1
                    Τέλος_αν
              αλλιώς
                    Γ[ξ, λ] <-- Α[κ, λ]

                    Αν λ = 30 τότε

                         ξ <-- ξ+1

                    Τέλος_αν

              Τέλος_αν
          Τέλος_επανάληψης
      Τέλος_επανάληψης
      Αποτελέσματα // Β, Γ //
      Τέλος Διαχ