Cho số nguyên n với (n<= 100) và dãy số nguyên gồm n phần tử. Tìm phẩn tử nhỏ nhất có trong dãy. Đếm số lần xuất hiện của khóa k biết rằng k là số nguyên và được nhập từ bàn phím. Ai giúp mình với ????????????
Cho số nguyên n với (n<= 100) và dãy số nguyên gồm n phần tử. Tìm phẩn tử nhỏ nhất có trong dãy. Đếm số lần xuất hiện của khóa k biết rằng k là số nguyên và được nhập từ bàn phím. Ai giúp mình với ????????????
program ct;
uses crt;
var i,n,Min,k,d:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]=’); readln(A[i]);
end;
Min:=A[1];
for i:=2 to n do
if Min>A[i] then Min:=A[i];
writeln(‘so nho nhat cua day la’,Min);
write(‘nhap khoa k=’); readln(k);
d:=0;
for i:=1 to n do
if A[i]=k then d:=d+1;
if d=0 then writeln(k,’ khong co trong day’)
else
writeln(k,’ xuat hien’,d:2,’ lan trong day’);
readln
end.
uses crt;
var n,i,k,min,dem:integer;
a:array[0..100] of integer;
BEGIN
clrscr;
{Nhap day so va K}
write(‘Nhap n:’); readln(n);
write(‘Nhap K:’); readln(k);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]’);
readln(a[i]);
end;
{Tim cac phan tu co gia tri nho nhat}
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
{Dem so lan xuat hien cua K}
dem:=0;
for i:=1 to n do
if a[i]=k then dem:=dem+1;
{GHI KET QUA RA MAN HINH}
writeln(‘Phan tu co gia tri nho nhat trong day la:’,min);
write(‘So ‘,k,’ xuat hien ‘,dem,’ lan.’);
readln
END.
Chúc bạn học tốt