Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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 .

Nguyễn Lê Phước Thịnh
23 tháng 6 2020 lúc 12:33

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.


Các câu hỏi tương tự
Phan Thị Phương Thy
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
Mỹ Trinh
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Yết Thiên
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
Trí Nguyễn
Xem chi tiết
su nè
Xem chi tiết
An Vy
Xem chi tiết