Bạn tham khảo nhé
Chương trình tìm số lần xuất hiện của phần tử x trong mảng là:
Program demx;
Uses crt;
Const n=10;
Var a:array[1..10] of real;
x:real;
Dem, i, spt:integer;
Begin
Clrscr;
Write(‘nhap so phan tu cua mang’);
Readln(spt);
For i:=1 to spt do
Begin
Write(‘nhap phan tu thu ‘,i,’ ’);
readln(a[i]);
End;
Write(‘nhap vao phan tu x can dem:’);
Readln(x);
For i:= 1 to spt do
If a[i]=x then inc(dem);
If dem=0 then write(‘khong co phan tu nao bang x!’) else
Write(co ‘,dem,’ phan tu bang x!’);
Readln;
End.
