Σειριακή αναζήτηση ενός στοιχείου σε δισδιάστατο πίνακα

Να γραφεί πρόγραμμα το οποίο θα εισάγει 8 ακέραιους αριθμούς σε έναν πίνακα Π[2,4] και στην συνέχεια αφού δώσουμε μια τιμή προς αναζήτηση να ελέγχει αν υπάρχει αυτή η τιμή μέσα στον πίνακα.

ΠΡΟΓΡΑΜΜΑ ΣΕΙΡΙΑΚΗ_ΑΝΑΖΗΤΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι,Κ,Χ,Π[2,4]
  ΛΟΓΙΚΕΣ: FOUND
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2      
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
      ΔΙΑΒΑΣΕ Π[Ι,Κ]             
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΤΙΜΗ ΠΡΟΣ ΑΝΑΖΗΤΗΣΗ'
  ΔΙΑΒΑΣΕ Χ
  FOUND <-- ΨΕΥΔΗΣ      
  Ι <-- 1
  ΟΣΟ Ι<=2 ΚΑΙ FOUND=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    Κ <-- 1
    ΟΣΟ Κ<=4 ΚΑΙ FOUND=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
      ΑΝ Π[Ι,Κ]=Χ ΤΟΤΕ
        ΓΡΑΨΕ 'ΒΡΕΘΗΚΕ Η ΤΙΜΗ ΣΤΗΝ ΘΕΣΗ:', 'ΓΡΑΜΜΗ ', Ι, 'ΣΤΗΛΗ ', Κ
        FOUND <-- ΑΛΗΘΗΣ
      ΑΛΛΙΩΣ
        Κ <-- Κ+1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    Ι <-- Ι+1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ FOUND=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Η ΤΙΜΗ ΔΕΝ ΒΡΕΘΗΚΕ ΣΤΟΝ ΠΙΝΑΚΑ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Σειριακή αναζήτηση όλων των θέσεων ενός στοιχείου σε πίνακα

Να γραφεί πρόγραμμα το οποίο θα εισάγει έξι ακέραιους αριθμούς σε έναν πίνακα και στην συνέχεια αφού δώσουμε μια τιμή προς αναζήτηση να ελέγχει αν υπάρχει αυτή η τιμή μέσα στον πίνακα και σε ποιες θέσεις.

ΠΡΟΓΡΑΜΜΑ ΣΕΙΡΙΑΚΗ_ΑΝΑΖΗΤΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι,Χ,Π[6]
  ΛΟΓΙΚΕΣ: FOUND
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΔΙΑΒΑΣΕ Π[Ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΤΙΜΗ ΠΡΟΣ ΑΝΑΖΗΤΗΣΗ'
  ΔΙΑΒΑΣΕ Χ
  FOUND <-- ΨΕΥΔΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
    ΑΝ Π[Ι]=Χ ΤΟΤΕ
      ΓΡΑΨΕ 'ΒΡΕΘΗΚΕ Η ΤΙΜΗ ΣΤΗΝ ΘΕΣΗ', Ι
      FOUND <-- ΑΛΗΘΗΣ   
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ FOUND=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Η ΤΙΜΗ ΔΕΝ ΒΡΕΘΗΚΕ ΣΤΟΝ ΠΙΝΑΚΑ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ