ΠΡΟΓΡΑΜΜΑ αποκοπή_γραμμής_στήλης
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,k,l, G, S, A[5,5], B[4,4]
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
ΔΙΑΒΑΣΕ A[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε γραμμή'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ G
ΜΕΧΡΙΣ_ΟΤΟΥ (G>=1) ΚΑΙ (G<=5)
ΓΡΑΨΕ 'Δώσε στήλη'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ S
ΜΕΧΡΙΣ_ΟΤΟΥ (S>=1) ΚΑΙ (S<=5)
k <-- 1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΑΝ i<>G ΤΟΤΕ
l <-- 1
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
ΑΝ j<>S ΤΟΤΕ
B[k,l] <-- A[i,j]
l <-- l+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
k <-- k+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο αρχικός πίνακας είναι ο παρακάτω....'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ A[i,1], '-', A[i,2], '-',A[i,3], '-',A[i,4], '-',A[i,5]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο πίνακας χωρίς την ', G ,'η γραμμή και την ', S ,'η στήλη είναι ο παρακάτω....'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ B[i,1], '-', B[i,2], '-',B[i,3], '-',B[i,4]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ