CỨU EM VỚI , SÁNG MAI EM THI RỒI............ Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tuyệt đối nhỏ hơn 1000. Hãy đưa ra màn hình những thông tin sau: a. Tổng số nguyễn chẵn, tổng số nguyên lẻ trong dãy số b. Tổng giá

hidinhhuyen80

2 năm trước

CỨU EM VỚI , SÁNG MAI EM THI RỒI............ Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tuyệt đối nhỏ hơn 1000. Hãy đưa ra màn hình những thông tin sau: a. Tổng số nguyễn chẵn, tổng số nguyên lẻ trong dãy số b. Tổng giá trị của dãy số

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

socbilovethobo

uses crt;
var a: array[1..100] of integer;
var n,i,sc,sl,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
repeat
write ('nhap a[',i,']: '); readln (a[i]);
if abs(a[i])<1000 then
begin
s:=s+a[i];
if a[i] mod 2=0 then sc:=sc+a[i];
if a[i] mod 2<>0 then sl:=sl+a[i];
end;
until abs(a[i])<1000;
end;
writeln ('tong cac so le trong day: ',sl);
writeln ('tong cac so chan trong day: ',sl);
writeln ('tong gia tri cua day so: ',s);
readln;
end.

Chúc ban thi tốt nhea !!!

꧁༺𝙘𝙖𝙤 𝙩𝙝𝙪̉ 𝙥𝙖𝙨𝙘𝙖𝙡ッ

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

nhatminh1542

Var B:Array[1..100] of integer;
i, n, tc, tl, tm: longint;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘B[‘,i,’]=’);
Readln(B[i]);
End;
tc:=0; tl:=0; tm:=0;
For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
For i:=1 to n do inc(tm, b[i]);
Writeln(‘Tong so nguyen chan la: ‘,tc:0:2);
Writeln(‘Tong so nguyen le la: ‘,tl:0:2);
Writeln(‘Tong gia tri cua day so la: ‘,tm:0:2);
Readln
End.

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

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

Sự khác biệt của giáo dục ở nông thôn và thành thị...? ( Cơ sở hạ tầng, cơ sở vật chất, phương tiện, con người,...)

VCT nhập 3 số kiểm tra đó có phải là 3 cạnh của tam giác không?

Một lần Hường phát hiện ra Hoa ăn trộm tiền của mình để mua kẹo nên Hường giận Hoa lắm.Hường đã kêu gọi mọi người tẩy chay Hoa.Hoa rất hối hận và xin lỗi Hường nhưng Hường đã không đồng ý. Hãy nêu cách ứng xử của em trong tình huống này ?

Vì sao cần năng động, sáng tạo? Em đã làm gì để trở thành người năng động sáng tạo?

Thực hiện phép tính: a) $\frac{2x+9}{x-5}$ . $\frac{5x-8}{x+1945}$ - $\frac{2x+9}{x-5}$ . $\frac{4x-3}{x+1945}$ b) $\frac{x^3+y^3+z^3-3xyz}{xyt^2+xz(zy+z)}$ . $\frac{x(y^2+z)+y(x-xy)}{(x-y)^2+(y-z)^2+(x-z)^2}$

Giải thích tại sao chọn đáp án 😿😿😿

Cho em xin cách mở bài để dẫn câu này vào ạ

Giúp e với ạ hai bài e khoanh tròn ạ

Mô tả thuật toán sắp xếp 3 số giảm dần.

Help me please! Bài a,b,c,d trên cùng là thực hiện phép tính nha!

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