uses crt;

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

i,n,d: integer;

begin

clrscr;

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

d:=0;

for i:=1 to n do

begin

write ('nhap so thu ',i,': ');  readln (a[i]);

if a[i]=7 then d:=d+1;

end;

writeln ('Co ',d,' phan tu mang gia tri 7');

readln;

end.

$#Trumtinhoc$

đây nha, chúc bạn học tốt!

uses crt;
var N: array[1..99] of integer;
       i,a,ts: integer;
begin
 clrscr;
 write ('nhap do dai day so: '); readln (a);
 for i:=1 to a do
  begin
   write ('nhap so thu ',i,': '); readln (N[i]);
   if N[i]=7 then ts:=ts+1;
  end;
 writeln ('Co ',ts,' phan tu mang gia tri 7');
 readln;
end.