Mm giúp em câu này với ạ Viết chương trình nhập từ bàn phim số nguyên dương N và dãy A gồm a1,a2,...an.thông báo ra màn hình dãy số vừa nhập và tổng các số chắn chia hết cho 5 trong A

kimanhh

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

725102804575529

program chuogntrinh;
var a:array[1..100] of integer;
n,i,s:integer;
begin
writeln('nhap so phan tu'); readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
begin
if a[i] mod 5=0 then
s:=s+a[i];end;
for i:=1 to n do
writeln(a[i]:5);
writeln('tong la',s:4);
readln;
end.

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

djemtrjnh1208

Program BT;
Var i,n,t : longint;
a : array [1..100] of longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until n > 0;
t := 0;
For i := 1 to n do
Begin
Write ('A[',i,']= ');Readln(A[i]);
If (a[i] mod 2 = 0 ) and (a[i] mod 5 = 0) then t := t + A[i];
end;
For i := 1 to n do Write (A[i],' ; ');
writeln;
Write ('Tong cac so do la : ',t);
end.

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

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

Giúp ☀️☀️☀️☀️☀️👉👉🌜🌜🌜🌜👀👀👀🤓🤓🤓🤓

Tìm x,y thỏa mãn : x^2 + 2x^2y^2 + 2y^2 - (x^2y^2 + 2x^2) - 2 = 0

lề : Chúc mn ngủ ngon ,chúc NTTD ngủ ngon <3 vẽ anime đang ngủ

So sánh tinh thần chống Pháp của vua quan triều Nguyễn. Mn ơi em cần ngắn gọn và đầy đủ ạ

60 điểm+tlhn please ???????????

Giúp mình với ạ. Mình cần gấp ạ.

Mong mn sẽ giúp mik guair được bài tập này

giúp mình câu 4 đi mọi người mình cần gấp lắm

cho $\alpha$ $\neq$ $\pi$/( 2 + k $\pi$ ), k ∈ Z. chứng minh rằng $\frac{cos\alpha + sin\alpha }{cos^3\alpha}$ = tg ³ $\alpha$ + tg$\alpha$ + 1

câu 3: bạn an và một số bạn khác đua xe. buổi trx đi đường cứ la hét. nếu em là 1 trong 3 bạn đó thì em sẽ xử lí ntn, nếu em là người đi đường em sẽ l j, em có nhận xét j về hành vi của các bạn ấy

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