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 🥺🥺🥺

huynhtien20112001

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

phanhieu11032009

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.

Vote (0) Phản hồi (0) 2 năm trước

buaren

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

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

use the suggested words and phrases to write complete sentences 7. her father / work / engineer since 1990. => ......... 8.you / do / not / speak / slowly / your brother =>....... 9. she / did / not / get up / late / she / use / to / during / holidays =>...... 10. exercise / not / as / difficult / i /think =>........

Đơn vị Lum/Oát là gì? Tên tiếng Anh là gì?

Mn ơi giúp mik vs . Cảm ơn nhìu ak! ❤️

viết đoạn văn quy nạp 12 câu với câu chủ đề sau "ông họa sĩ là 1 con người có tâm hồn nhẹ cảm có nhiều suy nghĩ sâu sắc về nghề nghiệp"

4-5 câu ạ. Mọi người giúp em với!!

Viết một đoạn văn ngắn gửi bản thân mk vào 10 năm sau. Mong mn giúp với ạ

MN nhớ giải đúng và phải đầy đủ hết tất cả các bài nha. Nếu ko sẽ bị báo cáo

viết 1 đoạn văn nói về 1 tệ nạn xã hộ k chép mạng nha

Vì sao cậu bé và người khách trong câu chuyện dưới đây hiểu lầm nhau .qua câu chuyện này. Em rút ra được bài học j về cách nói năng. Văn bản mất rồi

tìm m để $(m-2)x^{2}$ -3mx +m +3 $\geq$ 0 có tập nghiệm là R câu 2: cho phương trình $3trinhf3x-2(m+1)x + 3m - 5 = 0 . tìm m để phương trình có 2 nghiệm sao cho x2 = 3x1