Ôn tập cuối năm

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

Hãy xác định bài toán , mô tả thuật toán và viết chương trình nhập vào một dãy số nguyên với n phần tử ( n được nhập từ bàn phím ) , tìm giá trị nhỏ nhất và tích của dãy số đó

Nguyễn Lê Phước Thịnh
23 tháng 5 2022 lúc 9:16

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

if nn>a[i] then nn:=a[i];

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.


Các câu hỏi tương tự
Đoàn My
Xem chi tiết
Văn Tèo Trần
Xem chi tiết
Ngọc Ty
Xem chi tiết
7-8a6 Phạm Ngọc Đức
Xem chi tiết
Nguyễn Khải Minh
Xem chi tiết
the current student
Xem chi tiết
Phantragiang
Xem chi tiết
Đuc Lee
Xem chi tiết
Huỳnh Ngọc Nguyên
Xem chi tiết