Viết chương trình: a/ Nhập vào dãy số gồm n số nguyên (n: nhập từ bàn phím) b/ In dãy số này ra màn hình c/ Tìm giá trị nhỏ nhất của dãy d/ Tính tích các phần tử của dãy số trên

Tín Nguyễn Hỏi từ APP VIETJACK

· 11:23 03/04/2022

Viết chương trình:
a/ Nhập vào dãy số gồm n số nguyên (n: nhập từ bàn phím)
b/ In dãy số này ra màn hình
c/ Tìm giá trị nhỏ nhất của dãy
d/ Tính tích các phần tử của dãy số trên

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

1 câu trả lời 490

I may be crazy, don't mind me

4 năm trước

Viết chương trình:
a/ Nhập vào dãy số gồm n số nguyên (n: nhập từ bàn phím)
b/ In dãy số này ra màn hình
c/ Tìm giá trị nhỏ nhất của dãy
d/ Tính tích các phần tử của dãy số trên

- Chi tiết :

- uses crt;
var a:array[1..100] of longint ;
n, min,i : longint ;
p : real ;
begin
clrscr;
P := 1 ;
write('nhap n: ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
P := P * i ;
end ;
write('Day so vua nhap la: ');
for i:= 1 to n do
write(a[i]:3);
writeln ;
min := a[1];
for i := 2 to n do
if min>a[i] then min := a[i];
writeln('Phan tu nho nhat la: ',min);
writeln('Tich cac phan tu la: ',p:0:0);
end.

Hình ảnh chi tiết :

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

1 câu trả lời 490

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8