While

Δύο μεγάλα πανεπιστήμια της χώρας θέλησαν να συγκεντρώσουν ένα χρηματικό πόσο μεγαλύτερο από 200.000 €, για να πραγματοποιηθούν περιβαλλοντικά έργα στην περιοχή όπου εδρεύουν. Προσκάλεσαν λοιπόν μεγάλες εταιρείες να δώσουν χορηγίες για την συγκέντρωση αυτών των χρημάτων έτσι ώστε να ολοκληρωθούν τα έργα.
Να γίνει πρόγραμμα σε Pascal το οποίο να:
  • Διαβάζει επαναληπτικά τις χορηγίες των εταιρειών μέχρι το συνολικό πόσο να ξεπεράσει τις 200.000 €. Να γίνεται έλεγχος στο ποσό της χορηγίας κάθε εταιρείας που πρέπει να είναι θετικός αριθμός.
  • Να εμφανίζει σχετικό μήνυμα για το αν ο χορηγός θα λάβει έπαινο για τη χορηγία του. Έπαινο λαμβάνουν οι χορηγοί με ποσό τουλάχιστον 50.000 €. Το πρόγραμμα θα πρέπει να εμφανίζει ευχαριστήριο μήνυμα στην περίπτωση που ο χορηγός πήρε έπαινο αλλά και στην περίπτωση που δεν πήρε.
  • Μετά από κάθε χορηγία να εμφανίζεται το ποσό που έχει συγκεντρωθεί, καθώς και το ποσό που απομένει μέχρι να ολοκληρωθεί η διαδικασία.
  • Μετά την συγκέντρωση του απαιτούμενο ποσού να εμφανίζει το πλήθος των χορηγών από τους οποίους συγκεντρώθηκε το ποσό, καθώς και τον πλήθος των χορηγών που πήραν έπαινο.
Να δημιουργηθεί πρόγραμμα το οποίο διαβάζει επαναληπτικά θετικούς ακέραιους αριθμούς, μέχρι να δοθεί αρνητικός αριθμός ή μηδέν. Στο τέλος της επαναληπτικής διαδικασίας αν έχουν εισαχθεί θετικοί ακέραιοι αριθμοί να εμφανίζει το πλήθος των αριθμών που διαβάστηκαν καθώς και τον μέσο όρο τους, στην περίπτωση που δε διαβάστηκε κανένας θετικός αριθμός να εμφανίζει το μήνυμα "Δεν πληκτρολογήθηκε κανένας θετικός αριθμός".