cho dãy số nguyên cho dãy a gồm n số nguyên a1 a2 a3-.. an có bao nhiêu số hạng có giá trị bằng 5

program za;

uses Crt;

var i,n,a,dem : integer;

begin

clrscr;

dem := 0; 

Write(‘nhap n = ‘); readln(n);

For i:=1 to n do

begin

Write(‘nhap phan tu thu ‘,i,’ la : ‘); readln(a);

If (a = 5) then dem := dem + 1;

end;

Write(‘Co ‘,dem,’ so hang co gia tri bang 5 ‘);

readln

end.