Nhập vào từ bàn phím tên và tuổi của n học sinh In ra các học sinh có cùng độ tuổi Ví dụ: n=5 An 14 Linh 13 Hoa 14 Mai 13 Chi 14 In ra màn hình: An, Hoa, Chi Linh, Ma

lovemiasanmia

2 năm trước

Nhập vào từ bàn phím tên và tuổi của n học sinh In ra các học sinh có cùng độ tuổi Ví dụ: n=5 An 14 Linh 13 Hoa 14 Mai 13 Chi 14 In ra màn hình: An, Hoa, Chi Linh, Mai

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

matematiko0202

program dotuoi;

uses crt;

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

B:array[1..1000] of byte;

n,i,j,tg:integer;

tgt:string;

begin

clrscr;

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

for i:=1 to n do

begin

write('Ten: '); read(A[i]);

write(' Tuoi: '); read(B[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if B[i]<B[j] then

begin

tgt:=A[i];

A[i]:=A[j];

A[j]:=tgt;

tg:=B[i];

B[i]:=B[j];

B[j]:=tg;

end;

i:=1;

while i<=n-1 do

if B[i]=B[i+1] then write(A[i],',')

else writeln;

readln;

end.

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

vypapy.300vn

program xeptuoi;

uses crt;

var A:array[1..100] of string;

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

n,i,j,tg:integer;

tgt:string;

begin

clrscr;

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

for i:=1 to n do

begin

write('Ten: '); read(A[i]);

write(' Tuoi: '); read(B[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if B[i]<B[j] then

begin

tgt:=A[i];

A[i]:=A[j];

A[j]:=tgt;

tg:=B[i];

B[i]:=B[j];

B[j]:=tg;

end;

i:=1;

while i<=n-1 do

if B[i]=B[i+1] then write(A[i],',')

else writeln;

readln;

end.

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

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

Một tảng băng hình trụ có bề dầy h=0,2m và diện tích đáy S=1m² thả trong một bể nước. a/ cần phải đặt lên một tảng băng một hòn đá có khối lượng bằng bao nhiêu để hòn đá ngập hoàn toàn trong nước. b/ xác định lực do tảng băng tác dụng lên hòn đá. Biết khối lượng riêng của nước, của băng , của đá lần lượt là 1000kg/m³, 900kg/m³, 2200kg/m³.

GIÚP ??? -12 . |23| + 32 . |-23|

viết 1 đoạn văn tiếng anh về người phụ nữ VN Ngắn thui

!! Câu 1 : Một người đứng ở tầng 2 cách mặt đất 3m kéo một vật nặng 15kg lên đều trong 25giây. a) Tính công và công suất của người kéo. b) Nếu người đó đứng ở mặt đất dùng ròng rọc động để kéo vật đó lên tầng 2 thì lúc này lực kéo của người đó là bao nhiêu? Dây được kéo dài một đoạn là bao nhiêu? Câu 2: Một vật có khối lượng 25kg được nâng lên độ cao 4m so với mặt đất theo phương thắng đứng trong 40giây a) Tính công nâng vật và công suất của người nâng vật b) Nếu người ta dùng một tấm ván dài 6m để đưa vật đó lên độ cao trên. Tính lực đấy vật lên cao bằng mặt phẳng nghiêng. Dùng mặt phẳng nghiêng hay nâng vật theo phương thẳng đứng cho ta lợi về công?

270 phần âm 450 b) 5.8-7.8 phần 12-19 c) -150 phần 250 d) 120 phần âm 180 e) âm 63 phần 7.2-7.3

tìm diện tích tôn để làm 1 cái thùng không nắp dài 1,3m, rộng 55cm, cai 5dm . Biết diện tích mép hàn là 0,1m vuông

Nhận biết các chất sau: SO2, NH3, H2, etin, propan, propin

Dựa vào ngành khai thác dầu mỏ,ngành du lịch,ngành giao thông vận tải,ngành muối hãy : -tìm điều kiện phát triển của mỗi ngành -vị trí -hạn chế AI LÀM ĐÚNG,CHÍNH XÁC MÌNH VOTE!!❤

Một oxit của P có phần trăm khối lượng của P=43,66%. Biết phân tử khối của oxit bằng 142. Tìm CTHH của oxit

Các pạn giúp mình nốt mấy câu này ik mòooo

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