var a: array[1..1000] of integer;

    f: text;

    n,i,cs:byte;

begin

    assign(f,'bai2.txt'); rewrite(f);

    write('Nhap n: '); readln(n);

    while n>100 do

     begin

         write('n phai nho hon 100, nhap lai n: ');

         readln(n);

     end;

    for i:=1 to n do

     begin

      write('a[',i,']= ');

      readln(a[i]);

      if a[i]=50 then cs:=cs+1;

     end;

    write(f,'Co ',cs,' so co gtri bang 50');

    close(f);

end.

program ct;

uses crt;

var i,n,d:integer;

       f:text

      A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  d:=0;

    for i:=1 to n do

      if A[i]=50 then d:=d+1;

   assign(f,'D:\bai2.txt'); rewrite(f);

   writeln('co',d,' so bang 50 trong mang');

   close(f);

readln

end.