Mấy bạn ơi hãy giúp mìk với
1.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất và nhỏ nhất .
2.Viết chương trình Pascal tính tổng của N số tự nhiên đầu tiên với N số tự nhiên được nhập từ bàn phím .
3.Viết chương trình Pascal nhập N số tự nhiên , in ra màn hình số nhỏ nhất để tổng đầu tiên lớn hơn 1000 .
4.Viết chương trình Pascal nhập vào 2 số nguyên , in ra màn hình kết quả sắp xếp 2 số nguyên vừa nhập theo thứ tự tăng dần .
5.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
Giải nhanh giùm e nha .
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,max,min: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];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong cua ',n,' so tu nhien dau tien la: ',s);
readln;
end.
Bài 3:
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=1000 do
begin
inc(n);
t:=t+n;
end;
writeln('Tong cua n so tu nhieu dau tien sao cho tong nho nhat lon hon 1000 la: ',t);
writeln('So lan n nang len la: ',n);
readln;
end.
Bài 4:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then writeln(a,' ',b);
if a=b then writeln('hai so bang nhau');
if b<a then writeln(b,' ',a);
readln;
end.
Bài 5:
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('Gia tri nho nhat la: ',min);
readln;
end.
