Viết chương trình thực hiện các yêu cầu sau a) nhập một mảng A có n phần tử hoặc nhập mảng DTB; b) in mảng A đã nhập ra màn hình c) Tìm giá trị lớn nhất của mảng A; D) in các số lẻ của mảng A e) In các số chẵn của mảng A f) tính tổng mảng A và tổng các số chẵn có trong mảng A

666701640784543

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

yennhiabc.1801

program baigiai;

uses crt;

var A:array[1..1000] of integer;

n,i,max,t,tc:integer;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

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

end;

writeln('b. Mang da nhap la: ');

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

writeln;

max:=A[1];

for i:=1 to n do

if A[i]>max then max:=A[i];

writeln('b. So lon nhat la: ',max);

write('d. Cac so le la: ');

for i:=1 to n do

if A[i] mod 2=1 then write(A[i],' ');

writeln;

write('e. Cac so chan la: ');

for i:=1 to n do

if A[i] mod 2=0 then write(A[i],' ');

writeln;

t:=0; tc:=0;

for i:=1 to n do

begin

t:=t+A[i];

if A[i] mod 2=0 then tc:=tc+A[i];

end;

writeln('f. Tong mang A la: ',t,' va tong cac so chan la: ',tc);

readln;

end.

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

trantham13012001

ĐÂY NHA BẠN

program baigiai;

uses crt;

var A:array[1..1000] of integer;

n,i,max,t,tc:integer;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

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

end;

writeln('b. Mang da nhap la: ');

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

writeln;

max:=A[1];

for i:=1 to n do

if A[i]>max then max:=A[i];

writeln('b. So lon nhat la: ',max);

write('d. Cac so le la: ');

for i:=1 to n do

if A[i] mod 2=1 then write(A[i],' ');

writeln;

write('e. Cac so chan la: ');

for i:=1 to n do

if A[i] mod 2=0 then write(A[i],' ');

writeln;

t:=0; tc:=0;

for i:=1 to n do

begin

t:=t+A[i];

if A[i] mod 2=0 then tc:=tc+A[i];

end;

writeln('f. Tong mang A la: ',t,' va tong cac so chan la: ',tc);

readln;

end.

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

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

Giải phương trình sau: $\frac{x+1}{x-3}$ - $\frac{2-x}{x+3}$ = $\frac{2x(1-x)}{9-x²}$

Giải câu b giúp mình địa phương là ở Huế nhá

1. l (not see) ......................................... you for a long time. 2. my parents were sleeping when the mailman (come)......................... 3. the woman (cook)..................in the kitchen is my aunt. 4. would you mind if l (take)........................... a photo? 1. the lights went out when we (watch)....................... television. 2.do you mind if l (carry)............................. your luggage? 3. the boy (sit).............................. next to me was very nervous. 4. (you/finish) .......................... your homework yet, Ba? 5. nga asked Ba if he (go)........................... to sapa by train that day. 6. do you mind (help) ......................... me to do this exercise

Cho $x_1-x_2=4$ $x_1+x_2=2m+1$ $x_1.x_2=m-3$ Tìm $x_1;x_2;m$

Mấy bạn xét dấu cho mình bài này với, một bài đơn giản thôi ạ :)) $f(x) = -3x^2 - 5x - 8$

1.Một xe máy đi xe máy đi từ tỉnh A lúc 6 giờ 30 phút và đến tỉnh B lúc 9 giờ,nghỉ ở dọc đường 20 phút a)Tính quãng đường đi từ tỉnh A đến tỉnh B,biết vận tốc của xe máy là 42 km/giờ b)Nếu một xe máy khác cũng khởi hnahf cùng lúc với vận tốc 36km/giò thì xe máy đố đến tỉnh B lúc mây giờ?(Biết xe máy không nghỉ giữa đường 2.Phấn viết được đựng trong những hộp có chiều cao 12 cm,dấy là hình vuông có cạnh 24cm.Người ta xếp các hộp phấn vào thùng có chiều dài 3,6 m,Chiều rông 2,4 m và chiều cao 1,2 m.Hỏi mỗi thùng như vậy xếp được bao nhiêu hộp phấn nói trên

Thủy phân hoàn toàn chất béo X trong dung dịch NaOH thu được glixerol và hỗn hợp hai muối gồm natri oleat và natri stearat. Đốt cháy m gam X cần vừa đủ 154,56 gam O2 thu được 150,48 gam CO2. Mặt khác, m gam X tác dụng tối đa với V ml dung dịch Br2 1M. Giá trị của V là: X CÓ BAO NHIÊU C? GIẢI THÍCH

you/TV/a/many/do/watch/day/hours/How/?

Tại sao Việt Nam! Ít sảy ra động đất hầu như k có

Phát hiện điểm sai và sủa lại: `9 ×9=88`

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