Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Long Vũ Bảo

Viết chương trình nhập vào bảng A N>=1 <= 50. Hiển thị các phân tử chẵn ra màn hình. Tính tổng các phân tử dương. Nhập vào 1 số nguyên K rồi cho biết trong bảng có bao nhiêu phần tử có giá trị bằng K. Sắp xếp các phần tử trong bảng theo thứ tự không giảm.

Minh Lệ
12 tháng 5 2020 lúc 21:28

Program HOC24;

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

i,j,n,k,d,tg: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do

begin

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

if a[i]>0 then t:=t+a[i];

end;

write('K='); readln(k);

write('Cac phan tu chan la : ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

writeln('Tong cac phan tu duong la : ',t);

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

writeln('Trong mang co ',d,' phan tu bang ',k);

write('Mang sau khi sap xep la : ');

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

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

readln

end.


Các câu hỏi tương tự
truongduynam
Xem chi tiết
Nguyễn Thị Mỹ Tâm
Xem chi tiết
Bé Thúy
Xem chi tiết
le hiep
Xem chi tiết
Mailan Nguyễn
Xem chi tiết
Cảnh Lê
Xem chi tiết
truongduynam
Xem chi tiết
truongduynam
Xem chi tiết
Kudo Kido
Xem chi tiết