Viết chương trình nhập vào mảng A có N phần tử. Nhập vào giá trị X là số nguyên bất kì. Đếm số lần xuất hiện của giá trị X trong mảng A.
Viết chương trình nhập vào mảng A có N phần tử. Nhập vào giá trị X là số nguyên bất kì. Đếm số lần xuất hiện của giá trị X trong mảng A.
Program demso
Uses crt;
var a:array[1..10000] of integer;
i, k, t, N : integer;
Begin
clrscr;
Write (‘Nhap so phan tu: ‘); Readln(N);
For i:=1 to N do
begin
Write(‘Nhap a[‘,i,’]: ‘);
Readln(a[i]);
end;
Write(‘Nhap gia tri muon dem trong mang: ‘);Readln(k);
i:=1;
t:=0;
While i <= N do
begin
if a[i] = k then t:=t+1;
i := i+1;
end;
Writeln(‘So lan xuat hien cua ‘,k,’ trong mang la: ‘, t);
Readln;
End.
program xuathien;
uses crt;
var A:array[1..10000] of integer;
n,i,x,d:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
end;
writeln(‘Day vua nhap la:’);
for i:=1 to n do
write(A[i]:4);
write(‘Nhap X: ‘); readln(x);
d:=0;
for i:=1 to n do
if A[i]=x then d:=d+1;
write(‘Xuat hien ‘,d,’ lan’);
readln
end.