Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs 😣

kinz1704

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

tramanhle565

program nho_nhat;

uses crt;

var A:array[1..1000] of integer;

n,i,m:integer;

{------chuong-trinh-con-------}

function min(x,y:integer):integer;

begin

if x<y then min:=x else min:=y;

end;

{------chuong-trinh-chinh------}

BEGIN

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

end;

m:=A[1];

for i:=2 to n do

m:=min(m,A[i]);

write('So nho nhat la: ',m);

readln;

end.

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

tieubanggiai2911

uses crt;
var
      a,b: array[1..10000] of integer;
      n,i: integer;

function min(a,b: integer):integer;
begin
      If a > b then min:=b
         else min:=a;
end;

begin
       clrscr;

       write('Nhap n= ');readln(n);

       for i:=1 to n do
             begin
                writeln('- CAP SO THU ',i,' -');
                write('Nhap so thu 1: ');readln(a[i]);
                write('Nhap so thu 2: ');readln(b[i]);
             end;

       for i:=1 to n do

writeln('Min cua cap so thu ',i,' la: ',min(a[i],b[i]));

readln;
end.

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

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

Vẽ chibi lạnh lùng nha ( Vẽ đẹp đẹp vào đấy và line nha ) ~05/06/2021~ <3

giúp mình ạ, chỉ cần làm c1 và ý 2 câu 2 thôi nha

nhiệt kế nào đo dược nhiệt độ nước đá, nước sôi, dầu sôi, lò luyện kim cơ thể người, không khí ban đêm vùng bắc cực không khí ban ngày vùng sa mạc châu phi

Write a paragraph about the things you can do and offer some recommendations to keep (100-150 words)

1 xe máy đi từ A—>B với vận tốc 40km/h , lúc về, xe đi với vận tốc lớn hơn lúc đi là 10km/h , nên thời gian về ít hơn tg đi là 1h .Tính quãng đường AB Tks trc

Dòng biển ở sườn đông Andes Địa Lý lớp 7 hình 46

QÚA TRÌNH =NÀO ĐÃ XẢY RA KHI Ủ GẠO LÀM CƠM RƯỢU? TẠI SAO CƠM RƯỢU LẠI TÁCH "NƯỚC" ĐƯỢC?

Viết 1 đoạn văn ngắn bằng tiếng anh về những gì chúng ta nên làm để tiết kiệm năng lượng(ko chép mạng) Giúp em với em hết điểm rồi😿

Relative pronouns ( who, whom, which, that....)

Một vật được thả rơi không vận tốc đầu từ độ cao h=60m so với mặt đất. Chọn mốc thế năng tại mặt đất. Độ cao mà tại đó vật có động năng bằng 1/3 lần cơ năng?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến