Question

[Phạm Tiến]

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 .

Answer 1

[Nguyễn Lê Phước Thịnh]

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.