Viết phương trình Pascal thực hiện các yêu cầu sau a) Nhập từ bàn phím n ( n<=100) số nguyên dương b) In ra màn hình dãy số và tổng các số chẵn của dãy số đó ( Chú ý : Sử dụng cấu trúc mảng trong chương trình)

nguoiprohphphp

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

ann123

Uses Crt;
Var a:array[1..100] of longint;
n,i,S:int32;
Begin
Clrscr;
Writeln('Nhap n ptu vao:'); Readln(n);
For i:= 1 to n do
Begin
Writeln('Nhap a[',i,']='); Readln(a[i]);
End;
S:=0;
For i:= 1 to n do begin
Write(a[i],' ');
If a[i] mod 2=0 then S:=S+a[i];
End;
Writeln;
Writeln('Tong cac so chan = ',S);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thank you :333
p/s : Không hiểu chỗ nào, comment giải đáp!

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

legendarydream264

uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
writeln('a) Nhap: ');
write('n(n>0)='); readln(n);
writeln('Cac phan tu: ');
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
end;
write('b) Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
writeln(' Tong cac so chan: ',s);
readln;
end.

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

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

nêu các bộ phận của hạt và chức năng của chúng

Giúp chia động từ nha mọi người

1.Trình bày những nét sơ lược về mĩ thuật Ý thời kì phục hưng 2.Phân tích vẻ đẹp về nội dung và hình thức của các tác phẩm tiêu biểu của mĩ thuật Ý thời kì phục hưng mà em đi học

Giúp mk câu này với Lập giàn ý cho đề văn "Hãy chứng minh Bác giản dị trong đời sống sinh hoạt" 😥😥😥

Vẽ hộ mk cái bức này nha: ──────▄▌▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌ ───▄▄██▌█ ░Xe chở 100000000 LIKE đến đây.. ▄▄▄▌▐██▌█ ░░░░░░ ░░░░░░░░░ ░░░░░░░▐. ███████▌█▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▌ . ▀❍▀▀▀▀▀▀▀❍❍▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀❍❍ ▀▀. Ngoài lề: Bạn thích pokemon nào trong vùng kalos

Câu này là gì . trong các BT -1/2x^2y;-5xy^2;5x+y^2;3x^2;-2y a biết nào ko là đơn thức b các đơn thức nào đồng dạng với nhau

Hoa học bài từ 7h tối. Đến 9h thì học xong. Hỏi trong thời gian đó thì kim giờ và kim phút gặp nhau mấy lần

Người ta truyền cho khí trong xi lanh nhiệt lượng 100J . khí nở ra thực hiện công 0,6KJ đẩy pittong lên . Độ biến 1000 nội năng của khí là

Nhà Lan và nhà Huệ cùng nằm trên một con đường đến trường, nhưng Lan xa trường hơn nhà Huệ. Lúc 6 giờ Lan bắt đầu đi học bằng xe đạp với vận tốc 9,6km/giờ, cùng lúc đó Huệ cũng đi học nhưng đi với vận tốc 5km/giờ. Đến 6 giờ 30 phút thì Lan đuổi kịp Huệ. Hãy tìm quãng đường từ nhà Lan đến nhà Huệ.

Làm được hết cho 5* làm 3 câu thì cho4*còn làm được 2 câu cho 2*

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