! ===============================================================================================
! ΠΡΟΣΟΜΟΙΩΣΗ - ΑΠΡΙΛΙΟΣ 2002 - ΘΕΜΑ 3
! ===============================================================================================
! Δίνεται πίνακας Π δύο διαστάσεων, που τα στοιχεία του είναι ακέραιοι αριθμοί με Ν γραμμές και
! Μ στήλες.
! Να αναπτύξετε αλγόριθμο που να υπολογίζει πόσα από τα στοιχεία του πίνακα είναι θετικοί και
! πόσα αρνητικοί αριθμοί. Στο τέλος να εμφανίζει το αποτέλεσμα.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ΠΡ_2002_05_3
ΣΤΑΘΕΡΕΣ
  N = 5
  M = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : i , j , k , l
  ΠΡΑΓΜΑΤΙΚΕΣ: Π[N,M] , min
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ M
      ΓΡΑΨΕ 'Δώσε αριθμό για το κελι' , i , ',' , j
      ΔΙΑΒΑΣΕ Π[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  k <-- 0   ! ΠΛΗΘΟΣ ΘΕΤΙΚΩΝ
  l <-- 0   ! ΠΛΗΘΟΣ ΑΡΝΗΤΙΚΩΝ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ M
      ΑΝ Π[i,j] > 0 ΤΟΤΕ
        k <-- k + 1
      ΑΛΛΙΩΣ_ΑΝ Π[i,j] < 0 ΤΟΤΕ
        l <-- l + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'O πίνακας περιέχει,' , k , ' θετικούς και' , l , 'αρνητικούς αριθμούς.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ