tìm giá tị nhỏ nhất của dãy số nguyên
cho N = 4
a1=15
a2= 10
a3= 13
a4= 17
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n:integer;
s,t:real;
begin
clrscr;
readln(n);
s:=0.5;
for i:=2 to n do
s:=s+1/(i+1);
writeln('tong la: ',s:5:2);
readln;
end.
uses crt;
var a,b:array[1..100]of integer;
i,n,ln,dem:integer;
s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day-------------}
for i:=1 to n do
write(a[i]:4);
{--------cau-a-------------------}
writeln;
s:=1;
for i:=1 to n do
s:=s*a[i];
writeln('tich cac phan tu cua day la: ',s);
{-----------cau-b------------------}
writeln('cac phan tu o vi tri chan cua day la: ');
for i:=1 to n do
if i mod 2=0 then write(a[i]:4);
{-------------cau-c------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end;
ln:=b[1];
for i:=1 to dem do
if ln<b[i] then ln:=b[i];
writeln('so am lon nhat trong day A la: ',ln);
readln;
end.
mô hình hoạt động 3 bước:
thông tin vào --> xử lí --> thông tin ra
hoặc bạn có thể lập như sau:
nhập(input)--> xử lí--> xuất(output)
cái thứ 2 mik ko biết ạ^^
13
2
10
Vậy giá trị nhỏ nhất là 10