viết chương trình nhập vào một mảng gồm M số và một chỉ số k đếm số lần suất hiện của k trong mảng đó?
viết chương trình nhập vào một mảng gồm M số và một chỉ số k đếm số lần suất hiện của k trong mảng đó?
By Nevaeh
By Nevaeh
viết chương trình nhập vào một mảng gồm M số và một chỉ số k đếm số lần suất hiện của k trong mảng đó?
program xuathien;
uses crt;e(‘Nhap
var A:array[1..100] of integer;
m,i,k,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(m);
writeln(‘Nhap tung phan tu cua day: ‘);
for i:=1 to m do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
end;
write(‘Nhap k: ‘); readln(k);
d:=0;
for i:=1 to m do
if A[i]=k then inc(d);
writeln(‘Co ‘,d,’ phan tu cua day bang ‘,k);
readln
end.
uses crt;
var m:array[1..100] of integer;
n,i,k,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘nhap m[‘,i,’]: ‘); readln(a[i]);
end;
write(‘Nhap k: ‘); readln(k);
for i:=1 to n do
if m[i]=k then d:=d+1;
writeln(‘Co ‘,d,’ phan tu cua day bang k’);
readln;
end.