Ερώτηση για Pascal (was: [Off-topic] Μικρά & χρήσιμα freeware προγραμματάκια)

[7710nmvx]

:cry: ρε παιδια οποιοσ ξερει απο pascal ας μου λυσει ενα προβλημα!!!:cry:

 

!με πινακα! δινονται απο το πληκτρ. 20 αριθμοι και μασ ζηταει ποιοι ειναι αρνητικοι και ποιοι θετικοι!!!δηλαδη π.χ. στο τελος να λεει οτι αρωητικοι ειναι 12 και θετικοι 8!!!

[mcde]

Αν κατάλαβα καλά, σου δίνει δηλαδή 20 αριθμούς και θέλει ως αποτέλεσμα να βγάλεις το ποιοί είναι αρνητικοί και ποιοί θετικοί; Sorry κιόλας, αλλά (αν είναι αυτό) αν διαβάσεις ελάχιστα, θα βρεις τη λύση. Αν κατάλαβα λάθος, γράψε πιο αναλυτικά τι θέλεις να κάνεις.

[antonis_wrx]

countn:=0;

countp:=0;

for i:=0 to 20

begin

readln(a);

if (a)<0) then

countn:=countn+1;

if (a>0) then

countp:=countp+1;

end;

writeln(countn);

writeln(countp);

αν θυμάμαι καλά pascal!