Viết chương trình khai báo biến mảng với chỉ số dữ liệu và độ dài được nhập vào từ bàn phím. Tìm số nhỏ nhất Giúp mình

ngocduyen

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

hoanglan138512

program mang;

uses crt;

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

n,i,min: integer;

Begin

clrscr;

write('Nhap do dai mang: '); readln(n);

min:=1;

for i:=1 to n do

begin

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

if min>A[i] then min:=A[i];

end;

write('So nho nhat: ',min);

readln

End.

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

quynh2345

program dev;
uses crt;
var a:array[1..100] of integer;
n,i,min:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
write('Gia tri nho nhat: ',min);
readln;
end.

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

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

Viết 1 bài văn miêu tả một em bé trai chừng 4- 5 tuổi (ko chép mạng)

Em cần nộp nên ai giúp em vs ạ em cảm ơn

để tạo biểu đồ khác nhau ta làm j có bao nhiêu biểu đồ kể tên nêu cách bước lọc dữ liệu cứu

Mấy bạn trả lời giúp mình câu hỏi này nhé!

- Địa danh hành chính các điểm cực trên phần đất liền Việt Nam.

Bài 12 dạng khoảng cách, bí quá ạ

Các bạn đọc đề bài và làm giúp mình cả 2 bài nha , mình cảm ơn các bạn THANK YOU

Giúp mình với ahhhhh Bài 3 (1,0 điểm) Cho (P) y = x2 và (d) y = 2mx -m + 7. Tìm m để (P) cắt (d) tại A(x1, x2) sao cho 1/x1 + 1/x2 = 16

Giải giúp mình 2 bài hình học cuối nhé!

Tính: (2a - 5b)/a - 3b với a/b = 3/4

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