Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Linh Nguyễn

Viết các câu lệnh

- nhập vào một mảng A gồm N số nguyên

- in ra mànbhình số đầu tiên số thứ hai ...số thứ n của dãy

- sắp xếp theo thứ tự tăng dần hoặc giảm dần in ra dãy số đã sắp xếp

- Tìmmax ,min

- đếm xem mảng có bao nhiêu số chẵn, lẻ

Nguyễn Lê Phước Thịnh
14 tháng 7 2020 lúc 12:49

1: nhập vào một mảng A gồm N số nguyên

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

2: in ra màn hình số đầu tiên số thứ hai ...số thứ n của dãy

for i:=2 to n do

write(a[i]:4);

3: sắp xếp theo thứ tự tăng dần hoặc giảm dần in ra dãy số đã sắp xếp

*Tăng dần:

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

*Giảm dần:

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

4: Tìm max ,min

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('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

5: Đếm xem mảng có bao nhiêu số chẵn, số lẻ

dem:=0;

dem1:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then inc(dem)

else inc(dem1);

end;

writeln('So luong so chan la: ',dem);

writeln('So luong so le la: ',dem1);


Các câu hỏi tương tự
tuyết trinh
Xem chi tiết
Dragon
Xem chi tiết
Hoàng Tuấn Khang
Xem chi tiết
Nguyen Kiet
Xem chi tiết
Nhung
Xem chi tiết
Nhung
Xem chi tiết
Hải Hoàng
Xem chi tiết
Đỗ Đức Lâm
Xem chi tiết
Hà Thị Thủy
Xem chi tiết