Cho một dãy số gồm n phân tử ,n lớn hơn hoặc bằng 15 . Gía trị của từng phân tử là số nguyên: a, Nhạp từ bàn phím số phân tử và giá trị của từng phân tử b, Tỉnh tôgnr các phân tử âm của dãy c, Sắp xếp dãy theo chiêu giảm dần về giá trị của từng phần tử d, In kết quả ra màn hình M

tiendung1611

2 năm trước

Cho một dãy số gồm n phân tử ,n lớn hơn hoặc bằng 15 . Gía trị của từng phân tử là số nguyên: a, Nhạp từ bàn phím số phân tử và giá trị của từng phân tử b, Tỉnh tôgnr các phân tử âm của dãy c, Sắp xếp dãy theo chiêu giảm dần về giá trị của từng phần tử d, In kết quả ra màn hình Mn ơi giúp tớ nhé ,mai tớ nộp rồi

Loga Sinh Học lớp 12

0 lượt thích 41 xem

1 trả lời

Thích Trả lời

meomeo787898

program bai_giai;

uses crt;

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

n,i,t,j,tg:integer;

begin

clrscr;

repeat

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

if n<15 then writeln('n phai lon hon hoac bang 15. Nhap lai.');

until n>=15;

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

if A[i]<0 then t:=t+A[i];

end;

writeln('Tong cac so am la: ',t);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]<A[j] then

begin

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

write('Day sap xep giam dan la: ');

for i:=1 to n do write(A[i],' ');

readln;

end.

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

huynhanhvo

ues crt;

var a: array[1..100] of integer;

i,n,s,j,t: integer;

begin

clrscr;

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

for i:=1 to n do

begin

write ('nhap pt thu ',i,': '); readln (a[i]);

if a[i]<0 then s:=s+a[i];

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln ('tong cac so am: ',s);

write ('day giam dan: ');

for i:=1 to n do write (a[i],' ');

readln;

end.

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

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

Tại sao chải lược nhựa lại suôn thẳng hơn lược gỗ

CM: `-17x^4 + 2x^3 + 3x^2 + 4x -4 \ne 0`

Nêu 10 động vật có gia trị kính tế ở địa phương em chỉ rõ cách chăm sóc nuôi dưỡng và vai trò của loài đó

Mn giúp mình với!! Viết công thức phương trình cân bằng nhiệt. Giải thích các ký hiệu và đơn vị của các đại lượng có trong công thức

[(4x+28).3+55]:5=35 Giải dùm em với ạ!

Cho mình những kiến thức cần nhớ để thi hok kỳ 2 lớp 6 nha. MÌnh cho nhiều đ nên mong trl có tấm chút...hi

Vì sao lại nói: trận chiến trên sông Bạch Đằng năm 938 là một chiến thắng vĩ đại của dân tộc ta?

thế nào là chọn lọc hàng loạt, kiểm tra năng xuất ? mik cần gấp ạ

Vì sao có những thay đổi trong chính sách về kinh tế, xã hội của Pháp ở Việt Nam trong những năm chiến tranh thế giới thứ nhất

viết chương trình tính tổng S= 1 + 1/2 +1/3+.....+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn báo cáo

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