Question

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 .

Answer 1

*Đ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,' ');

Answer 2

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.