Vì đề cuối kì quá ,`A[i]=15` thì đương nhiên in ra bằng `15` rồi nên mình chuyển đề thành tìm số số `=15` nha

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

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

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

    Write(' A[',i,']');readln(A[i]);

End;

Write('day so do la');

For i:=1 to n do

Write(A[i],' ');

For i:=1 to n do

If A[i] =15 then inc(s);

Write('co' ,s,' so bang 15');

Readln

End.

program ct;

uses crt;

var i,n:integer;

      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;

  writeln('day so vua nhap la');

     for i:=1 to n do

        write(A[i],'  ');

   writeln('cac so co gia tri bang 15 la');

      for i:=1 to n do

         if A[i]=15 then write(A[i]);

readln

end.