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.
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
b)
uses crt;
var a:array[1..100]of integer;
i,n,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(min);
readln;
end.
uses crt;
var n:integer;
s:real;
begin
clrscr;
s:=1/1000;
n:=1 div s;
while s<=1/1000 do
begin
n:=n-1;
s:=1/n;
end;
writeln(n);
readln;
end.
uses crt;
var S,n,i; integer;
begin
clrscr;
repeat
writeln('Nhap n = '); read(n);
until n<1000000000;
i:=n-1;
While i<n do
begin
S := 0; While ( i <> 0 ) do
Begin k := i mod 10;
i := i div 10;
S := S + k;
end;
end;
if S = 10 then write(i);
readln
end.
uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s<=10000 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S>10000 la: ',n);
readln;
end.
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;
2:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(i:4);
readln;
end.
program baitap;
uses crt;
var s: real;
n: integer;
const sai_so = 0.001;
BEGIN
clrscr;
s:= sai_so;
n:= 1 div s;
while s<=sai_so do
begin
n:= n-1;
s:= 1/n
end;
writeln('So n lon nhat de s = 1/n > ', sai_so, ' la: ',n);
readln;
END.