Đề bài : Viết chương trình nhập vào mảng a hoặc b,c tùy ý a, In ra màn hình mảng vừa nhập b, Sắp xếp mảng theo thứ tự tăng dần hoặc giảm dần c, Điểm xem trong mảng có bao nhiêu phần tử Mn giúp mk vs ạ

howto2018

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

dinhvandtdn

program ct;

uses crt;

var i,n,d,j,tam:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

{--------cau a--------}

writeln('cac phan tu vua nhap la');

for i:=1 to n do

write(A[i],' ');

{--------cau b--------}

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;

write('day so sap xep theo thu tu tang dan la');

for i:=1 to n do

write(A[i],' ');

{-----------cau c----------}

d:=0;

for i:=1 to n do d:=d+1;

writeln('co',d,' phan tu trong mang');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Huyhung1

program ct;

uses crt;

var A:array[1..1000] of integer;

i,j,n,k:integer;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

write('Mang vua nhap la: ');

for i:=1 to n do

write(A[i]:3);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

k:=A[i];

A[i]:=A[j];

A[j]:=k;

end;

write('Mang sap xep theo thu tu tang dan la: ');

for i:=1 to n do

write(A[i]:3);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]<A[j] then

begin

k:=A[i];

A[i]:=A[j];

A[j]:=k;

end;

write('Mang sap xep theo thu tu giam dan la: ');

for i:=1 to n do

write(A[i]:3);

write('Mang co ',n,' phan tu');

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Chuyển đổi câu" bà bổ cau thành tám chiếc thuyền cau" thành câu bị động

Cho ∆ABC cân tại A, AD là phân giác góc BAC; N là trung điểm DC. a, Chứng minh ∆ABC = ∆ACD b, Chứng minh AD là trung tuyến của ∆ABC c, G là trọng tâm của ∆ABC, AB = 13cm; BC = 10cm. Tính AG d, Trên tia đối của tia NA lấy điểm M sao cho AN = NM. I là trung điểm của BM. Chứng minh A, D, I thẳng hàng. Giúp với ạ

Các bạn ơi, giúp mình câu 20 và 21 với Mình cảm ơn

Vì sao vi sinh vật có khả năng sinh trưởng rất nhanh Giúp mình với nhé Cảm ơn:3

Tìm các phân số lớn hơn 1/5 sao cho khi lấy tử cộng 2 mẫu nhân 2 thì giá trị của phân số vừa tìm ko thay đổi

Giải giúp mik với đừng mạng nhé , làm ơn chính xác nhé nhờ các anh mod giải giùm

Thử tưởng tượng nếu em là một ngư dân thấy đàn cá đi ăn trong mùa sinh sản để em có nên dùng mìn hay chích điện để đánh cá không? Vì sao? Giúp tớ nhé🖐

giải thích nghĩa của câu: "Mục tiêu tấn công "

nêu đơn vị đo ,kí hiệu của hiệu điện thế và cường độ dòng điện và dụng cụ đo của hiệu điện thế , cường độ dòng điện

So sánh hệ thống nhiên liệu dùng bộ chế hòa khí và hệ thống nhiên liệu dùng vòi phun

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến