Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nemo

viết chương trình tìm phần tử có giá trị bé nhất của dãy số gồm N phần tử số nguyên ( N<=100). Đưa ra màn hình giá trị phần tử tìm được và các ước số của nó. Mọi người giúp em với em cảm ơn ạ

Nguyễn Lê Phước Thịnh
21 tháng 4 2020 lúc 16:14

uses crt;

var a:array[1..100]of integer;

n,i,min: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];

writeln('Gia tri nho nhat cua day la: ',min);

writeln('Cac uoc cua no la: ');

for i:=1 to min do

if min mod i=0 then write(i:4);

readln;

end.


Các câu hỏi tương tự
Thái Bảo
Xem chi tiết
Hứa Tiến Mạnh
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Vân Ngô
Xem chi tiết
Nguyễn Thu Trang
Xem chi tiết
Hà Phương
Xem chi tiết
Tran Anh
Xem chi tiết
Hoàng lĩnh
Xem chi tiết