Nguyễn Thị Hiền

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 

Trương Nhật Huy
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)
Trương Nhật Huy
7 tháng 5 2021 lúc 20:19

Bình luận (0)
Trương Nhật Huy
7 tháng 5 2021 lúc 20:20

Bình luận (0)

Các câu hỏi tương tự
No No
Xem chi tiết
TÌNH ĐIÊN DẠI
Xem chi tiết
Quân Gaming TV
Xem chi tiết
Trâm Đỗ
Xem chi tiết
feng
Xem chi tiết
Võ Trần Nguyên
Xem chi tiết
Lê Thị Hồng anh
Xem chi tiết
Trọng khương
Xem chi tiết
Danh Nguyễn
Xem chi tiết