

{
PROGRAMMED BY   : MOHAMMAD ALJADA
DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
PROGRAM         : Find Students Whose Marks Above 50 , Students numbers randomly
}

USES WINCRT;

VAR ARR1:ARRAY[1..100] OF STRING;
    A:STRING;
    ARR2:ARRAY[1..100]OF INTEGER;
    R,I,N,P,J:INTEGER;


BEGIN

     WRITE('INPUT NUMBER OF STUDENTS :');
     READLN(N);
     randomize;
     FOR I:=1 TO N DO 
     BEGIN
     arr2[i]:=random(101);
     R:=RANDOM(26);
     R:=R+65;
     ARR1[I]:=CHR(R);
     FOR J:=1 TO 9 DO
     BEGIN
     R:=RANDOM(26);
     R:=R+97;
     ARR1[I]:=ARR1[I]+CHR(R);
     END;
     END;

     CLRSCR;
     P:=3;

     WRITELN('STUDENT NAME                 DEGREE');
     WRITELN('------------                 ------');

     FOR I:=1 TO N DO
     IF ARR2[I]>= 50 THEN
     BEGIN 
     WRITE(ARR1[I]);
     GOTOXY(30,P);
     WRITELN(ARR2[I]);
     P:=P+1;
     END;


      



END.

      