tin học 11 Cho mảng A gồm N phần tử (N<=50) Viết chương trình con tính : a) tổng các phần tử có trong mảng b) kiểm tra xem có phần tử trong mảng X không? Nếu không có thì thông báo không có. Nếu có thì đưa ra vị trí. c) Tính tích lập phương của các phần tử chẵn d) sắp xếp mản

ngaahp82

2 năm trước

tin học 11 Cho mảng A gồm N phần tử (N<=50) Viết chương trình con tính : a) tổng các phần tử có trong mảng b) kiểm tra xem có phần tử trong mảng X không? Nếu không có thì thông báo không có. Nếu có thì đưa ra vị trí. c) Tính tích lập phương của các phần tử chẵn d) sắp xếp mảng giảm dần e) đếm số phần tử là số nguyên tố trong mảng.

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

hoangngangiang1309

uses crt;
var i,n,vt,dnt,s,x,lp,j,t:longint; a:array[1..1000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write('Nhap N (N<=50): ');readln(n);
write('Nhap X: ');readln(x);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
inc(s,a[i]);
if x=a[i] then vt:=i;
if a[i] mod 2=0 then lp:=lp*a[i]*a[i]*a[i];
if nt(a[i]) then inc(dnt);
for j:=1 to i-1 do
if a[i]>a[j] then
begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
writeln('a) Tong: ',s);
if dnt=0 then writeln('b) X khong co trong mang') else
writeln('b) Vi tri cua x: ',vt);
writeln('c) Tich lap phuong cua ca phan tu chan: ',lp);
writeln('d) Mang da sap xep: ');
for i:=1 to n do write(a[i],' '); writeln;
writeln('e) Mang co ',dnt,' so nguyen to');
readln
end.

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

vungoc2013

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i,t,d,x,dnt,tlt,tg,j:longint;
{---HAM-NT---}
function ktnt(k:longint):boolean;
var r:longint;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
ktnt:=true;
end;
{---CT-chinh---}
BEGIN
clrscr;
repeat
write('Nhap N = '); readln(n);
if (n<1) or (n>50) then writeln('Nhap lai!');
until (n>0) and (n<=50);
t:=0; tlt:=1; dnt:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
t:=t+A[i];
if A[i] mod 2=0 then tlt:=tlt*A[i]*A[i]*A[i];
if ktnt(A[i]) then dnt:=dnt+1;
end;
writeln('a) Tong cac phan tu trong mang la: ',t);
write('b) Nhap X: '); readln(x);
d:=0;
for i:=1 to n do
if A[i]=X then
begin
write(i,' ');
d:=d+1;
end;
if d=0 then write('Khong co');
writeln;
writeln('c) Tich lap phuong cac phan tu chan la: ',tlt);
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('d) Mang giam dan: ');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('e) Co ',dnt,' so nguyen to');
readln;
end.

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

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

trong mỗi lần thử thách, em bé đã dùng những cánh gì để giải những câu đó oái oăm? Theo em, những cách ấy lí thú ở chỗ nào?

Help e với các ac ơi E sẽ vote và cho ctlhn

Một thùng dầu có 24 lít .Lấy ra 1/3 lít .Hỏi thùng dầu còn lại bao nhiêu lít .

Còn 10đ thoi mong ai đó sẽ giúp I love ...... Ice cream because it's ....... And cool (Điền động từ hoặc tính từ phù hợp)

viết calli (anh không nỡ xa nàng)

.......................................

Viết về ngôi nhà trong tương lai

251. I already ……….. (ask) you three times for a glass of water. 252. He ………. (leave) as soon as he ……… (hear) the news last night. 253. I opened the door just as my boy-friend Tom ……….. (ring) the bell. 254. We ……….. (not see) Mr. and Mrs. Baker for a long time. 255. It will soon be fifteen years since we …….. (come) to live in Ho Chi Minh city. 256. Until she spoke I ……… (not realize) she ……… (be) foreign. 257. Don’t leave till I ………. (arrive). 258. When your father ……… (die)? ~ I ………. (not know) when he ……… (die). 259. It …….. (rain) when we arrived. 260. Dick ………..(start) school before he ………. (be) seven.

Vẽ đậu mầm buồn bã NL : Xóa hai bình luận ăn luôn hai cảnh cáo . mod bị sao vậy(cố tình ak)

Moij người giúp Na vớiiii 1.She thanked me for the present i (send).... her 2.i can not help (complain).... about the lecture i attended yesterday 3. Why do you want to sell your house? i (move).... to another city 4.(not/be)....too worried about the coming test 5 bài điền cụm V see off - wear off - pull down - come into - run into - put through - set up 1) i.... my old friend julia when i was on my way home yesterday 2) could you...me... to mr jones please 3) the old houses at the end of the street...soon 4) this study group... by the united nations in 2010 5)my parents..... me..... at the railway station last Sunday

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