NH

Cho mảng A gồm N phần tử thuộc kiểu nguyên (0<N<10 mũ 3 . Viết chương trình tìm phần tử nhỏ nhất của mảng A 

TH
7 tháng 5 2021 lúc 20:26

Khi nãy gửi nhầm 2 cái nha 

program Baitap1;

uses crt;

var Min ,n, i:integer;

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

begin

clrscr;

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

for i:=1 to n do begin

   write('A[',i,']=');readln(A[i]);

                        end;

Min:=A[1];

for i:=1 to n do if Min>A[i] then Min:=A[i];

write('So Nho Nhat Trong Mang La ',Min);

readln;

end.       

Bình luận (0)
TH
7 tháng 5 2021 lúc 20:19

Bình luận (0)
TH
7 tháng 5 2021 lúc 20:20

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
TD
Xem chi tiết
QT
Xem chi tiết
TD
Xem chi tiết
H24
Xem chi tiết
VN
Xem chi tiết
LA
Xem chi tiết
TK
Xem chi tiết
DN
Xem chi tiết