Ακολουθεί το πρόγραμμα που υπολογίζει το άθροισμα κάθε στήλης ενός δισδιάστατου πίνακα Α[10,20] και αποθηκεύει αυτά τα αθροίσματα σε έναν νέο μονοδιάστατο πίνακα Σ[20].

ΠΡΟΓΡΑΜΜΑ Αποθήκευση_Αθροίσματος_Κάθε_Στήλης
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[10, 20], Σ[20], i, j, Άθροισμα
ΑΡΧΗ
  ΓΡΑΨΕ 'ΕΙΣΑΓΕΤΕ ΤΑ ΣΤΟΙΧΕΙΑ ΓΙΑ ΤΟΝ ΠΙΝΑΚΑ Α ΜΕ 10 ΣΕΙΡΕΣ ΚΑΙ 20 ΣΤΗΛΕΣ.'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΣΤΟΙΧΕΙΟ ΓΙΑ ΤΗ ΘΕΣΗ [', i, ',', j, ']'
      ΔΙΑΒΑΣΕ Α[i, j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ! Υπολογισμός και αποθήκευση του αθροίσματος κάθε στήλης στον πίνακα Σ
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
    Άθροισμα <-- 0  ! Αρχικοποίηση του αθροίσματος για τη στήλη j

    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
      Άθροισμα <-- Άθροισμα + Α[i, j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    Σ[j] <-- Άθροισμα  ! Αποθήκευση του αθροίσματος της στήλης j στον πίνακα Σ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ! Εμφάνιση του πίνακα Σ με τα αθροίσματα κάθε στήλης
  ΓΡΑΨΕ 'ΤΑ ΑΘΡΟΙΣΜΑΤΑ ΚΑΘΕ ΣΤΗΛΗΣ ΕΙΝΑΙ:'
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ 'ΑΘΡΟΙΣΜΑ ΣΤΗΛΗΣ ', j, ': ', Σ[j]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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

Επεξήγηση 🔍

1. Αρχικοποίηση και Εισαγωγή Στοιχείων στον Πίνακα Α 🔄

   • Το πρόγραμμα ζητά από τον χρήστη να εισάγει τα στοιχεία του πίνακα Α[10,20] με τη βοήθεια δύο επαναλήψεων ΓΙΑ.

2. Υπολογισμός Αθροίσματος για Κάθε Στήλη ➕

   • Για κάθε στήλη j, η μεταβλητή Άθροισμα αρχικοποιείται με 0.
   • Η επανάληψη ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10 διατρέχει τις γραμμές της στήλης j, προσθέτοντας το στοιχείο Α[i, j] στο Άθροισμα.
   • Το άθροισμα της στήλης j αποθηκεύεται στον μονοδιάστατο πίνακα Σ[j].

3. Εμφάνιση του Πίνακα Σ με τα Αθροίσματα Κάθε Στήλης 📋

   • Το πρόγραμμα εμφανίζει το περιεχόμενο του πίνακα Σ, όπου κάθε στοιχείο Σ[j] περιέχει το άθροισμα των στοιχείων της αντίστοιχης στήλης j του πίνακα Α.

Παράδειγμα Εκτέλεσης 📋

• Αν η πρώτη στήλη περιέχει τα στοιχεία 2, 3, 5, ... με άθροισμα 10, το πρόγραμμα θα αποθηκεύσει το 10 στο Σ[1].
• Το πρόγραμμα θα συνεχίσει την ίδια διαδικασία για όλες τις στήλες και θα εμφανίσει τα αθροίσματα στον πίνακα Σ.