home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / EXAMMARK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  731 b   |  49 lines
  1. PROGRAM Array_Example;
  2. {       A program to enter the exam marks
  3.         of 10 students and then display
  4.         the marks on the screen               }
  5.  
  6. VAR   Marks : ARRAY [1..10] OF INTEGER;
  7.       Count : INTEGER; {Loop counter}
  8.  
  9. PROCEDURE InputMarks;
  10.      BEGIN
  11.          WRITELN ('Please enter the students marks');
  12.          FOR Count := 1 TO 10 DO
  13.              BEGIN
  14.                  READLN (Marks[Count]);
  15.              END;
  16.      END;
  17.  
  18. PROCEDURE DisplayMarks;
  19.      BEGIN
  20.          FOR Count := 1 TO 10 DO
  21.              BEGIN
  22.                   WRITELN (Count:3,'     ',Marks [Count]:4);
  23.              END;
  24.      END;
  25.  
  26. BEGIN
  27.     InputMarks;
  28.     DisplayMarks;
  29. END.
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49. ə