tin học 11 Cho mảng A gồm N phần tử (N<=50) 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 d) đếm số phần tử là s

169096431161492

2 năm trước

tin học 11 Cho mảng A gồm N phần tử (N<=50) 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 d) đế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 19 xem

1 trả lời

Thích Trả lời

nguyenhonglien11a1

program hamfa;
user crt;
var A: array[1..50] of integer;
n, i, x, s, j, t, l, k: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
s:=s+A[i]:
end;
writeln('a) Tong = ', s);
s:=0;
write('Nhap x = '); readln(x);
for i:=1 to n do if A[i]=x then s:=i;
if s=0 then writeln('b) Khong co') else writeln('b) Vi tri = ', s);
l:=1;
for i:=1 to n do
begin
if i mod 2 = 0 then k:=i*i*i;
l:=l*k;
end;
write('c) Tich lap phuong = ', l);
for i:=1 to n-1 do
for j:=i to n do if A[i]>A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
write('d) Sap xep: ');
for i:=1 to n do write(A[i]);
t:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to i do if i mod j = 0 then s:=s+1;
if s=2 then t:=t+1;
end;
write('e) So phan tu nguyen to = ', t);
readln
end.

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

trangthihoang91

$ $

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

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

put the verbs into the correct form CHUYÊN GIA ANH GIÚP E VS KHI LM NHỚ CÔNG THỨC ĐẦY ĐỦ AI THIẾU CÔNG THỨC MONG MOD XỬ LÍ sorting the files.......................(be) my responsibility ___________________________________ A typewriter and a sheet of paper..........................(be) the only things on the desk _________________________________________ ............................Coach Dan and the players...................(know) about the special award? _____________________________________________________ My three weeks' vacation.................................(be) more enjoyable than I had anticipated _______________________________________________________________ ..................the officers...........................(submit) a writter statament yet? _________________________________________________________ the news of his spectacular achievements..........................(come) as a surprise to all of us ____________________________________________ On the table ............(be) a pen, a pad of paper,and two rulers _______________________________________________ Either you or your sister ..........................(be) to be asked to preside at the meeting _______________________________________ The team.......................(just,reach) a decision ________________________________________________ I ........................(see) your uncle and your cousin coming down the street ________________________________ There ...............(be) many opportunities for part-time employment on campus __________________________________________________________ ...............(be) physics and chemistry required courses? ______________________________________ One of his three instructors.........................(resign) aldready ______________________________________ .........................either of the coaches..............(expect) the team to win the game? _____________________________________ Neither I nor my sisters ................(hope) to greduate in June ___________________ Two teaspoons of vanilla .....................(be) needed in this recipe

Giúp mình ah mình đang cần gấp mình sẽ vote cho bạn nhanh nhất ah cảm ơn rất nhiều(chỉ cần làm bài 1 phần b,c,bài 2 và bài 3 thôi ạ

giúp mình bài 18 với ạ mình cảm ơn nhiều ạ

Giúp mình giải thích với! Mình đag cần rất gấp

Zn->ZnO->ZnSO4->ZnCl2->Zn(NO3)2->Zn(OH)2->ZnO->Zn->Zn(NO3)2

Nối vôn kế với hai đầu của bóng đèn tròn chưa sử dụng, trên bóng có ghi 220V thì: * 4 điểm Vôn kế chỉ giá trị 110V Vôn kế chỉ giá trị 220V Vôn kế chỉ giá trị 0V

C1 . Một động cơ có công suất 500W, hoạt động trong 4 phút.Tính công của động cơ đó? C2. Một bình chia độ có GHĐ 250ml, đang chứa 60ml rượu. Đổ vào bình chia độ 140ml nước. Khi đó mực chất lỏng trong bình chia độ A.nhỏ hơn 200ml C. Lớn hơn 200ml B.bằng 200ml. D.Bằng 250ml C3. Vật có cơ năng 90J sẽ có thế năng là bao nhiêu,biết động năng của vật là 50J? C4.Sắp xếp khoảng cách giữa các nguyên tử,phân tử của các chất từ nhiều tới ít : Khí ôxi, sắt, rượu. Rượu, khí ôxi, sắt Khí ôxi, rượu, sắt Rượu, sắt, khí ôxi C5Một cần trục nâng một vật có khối lượng 400 kg lên độ cao 4,5 m . Công của cần trục là: C6.Người ta kê một tấm ván để kéo một cái hòm khối lượng 60 kg lên một chiếc xe tải. Sàn xe cao hơn mặt đường 0,8 m, tấm ván dài 2,5 m, lực kéo bằng 300N. Hiệu suất của mặt phẳng nghiêng là

Giúp mk vớiiiiiiiiiiiiiiiiiiiiiiii

Calli: " /em khong manh me thi ai bao ve em day? em khong tu lap thi lay di doi dau voi xa hoi?/ Yêu cầu: - Trail - Không ô li, ko kẻ ngang, tone đen ( ví dụ dưới phần bl ) - 1 pic kí, 1 pic ko kí - Ko digi nha!! - Ko vi phạm luật - Viết theo thể như tui viết ở trên ______________________________

Giúp mk vsssssssssssssssssssssssssssss

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