Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Ngọc Ánh

Giúp em với ạ! Em cảm ơn nhiều ạ. Mai em kiểm tra rồi ạ.

Nhập vào mảng A có 1 phần tử nguyên . Hãy thực hiện :

a . Đếm các phần tử dương có trong mảng .

b . Tính tổng các phần tử chẵn có trong mảng .

c . Xuất các số lẻ và vị trí các số lẻ có trong mảng ra màn hình .

d . Tìm phần tử lớn nhất có trong mảng .

e . Sắp dãy A thành 1 dãy tăng

f . Nhập khóa K .Tìm K có xuất hiện trong dãy không , nếu có cho biết vị trí Kxuất hiện .

Minh Lệ
22 tháng 11 2019 lúc 22:14

*Đoạn lệnh :

a.

for i:=1 to n do if a[i]>0 then inc(d);

write(d);

b. t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write(t);

c.

+Vị trí lẻ:

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

+Vị trí chẵn:

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

d. max:=0;

for i:=1 to n do if a[i]>max then max:=a[i];

write(max);

e.

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;

f.

For i:=1 to n do if a[i]=k then write(i,' ');

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
23 tháng 11 2019 lúc 10:08

chị @Nguyễn Minh Lệ thì viết một phần gợi ý cho bạn thôi, còn mình sẽ viết hết cả bài cho bạn

uses crt;
var dem2,n,i,dem,t,ln,tam,k,kt,dem1,j:integer;
a,b,vt:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------cau-a-----------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then dem:=dem+1;
writeln('so cac phan tu nguyen duong co trong mang la: ',dem);
{-------------------cau-b-----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac phan tu chan co trong day la: ',t);
{-------------------cau-c-----------------------------}
writeln('cac so le co trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
writeln('vi tri cac so le co trong day la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(i:4);
writeln;
{-----------------cau-d--------------------------------}
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat co trong day la: ',ln);
{----------------cau-e--------------------------------}
b[1]:=a[1];
dem1:=0;
for i:=1 to n do
begin
dem1:=dem1+1;
b[dem1]:=a[i];
end;
writeln('day tang dan cua A la: ');
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);
{-------------------------cau-f-------------------------}
writeln;
write('nhap so k: '); readln(k);
kt:=0;
dem2:=0;
for i:=1 to dem1 do
if b[i]=k then
begin
kt:=1;
dem2:=dem2+1;
vt[dem2]:=i;
end;
if kt=0 then writeln(k,' khong co trong day')
else begin
writeln(k,' co trong day A tai cac vi tri lan luot la: ');
for i:=1 to dem2 do
write(vt[i]:4);
end;
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Thi Đua Khen Thưởng
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
Os. Htt
Xem chi tiết
Lâm Nguyên Khôi
Xem chi tiết
....
Xem chi tiết
Phạm Việt Bách
Xem chi tiết
Trần Tuyền
Xem chi tiết
Nguyễn Luân
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết