Viết chương trình về kiểu mảng : Nhập N, dãy N số nguyên (N <= 200) . Đếm trong dãy số có bnhieeu số lẻ. tính tổng các số trong dãy số chia hết cho 3

toanbeo253

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

samhoang

program gffg;

uses crt;

var S,i,n,t:integer;

A: array[1..200] of integer;

Begin

Clrscr;

Write('Nhap so chu so cua day: '); Readln(n);

t:=0;
S:=0;

Writeln('Nhap day');

For i:=1 to n do
Begin
Readln(A[i]);
If A[i] mod 2=1 then t:=t+1;
If A[i] mod 3=0 then S:=S+A[i];
End;

Writeln('Co ',t,' so le trong day');
Write('Tong cac so chia het cho 3: ',S);

Readln

End.

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

haidieu010

uses crt;

var a:array[1..200] of integer;

n,i,S:integer;

begin

clrscr;

repeat readln(n) until (n<=200);

for i:=1 to n do readln(a[i]);

d:=0;

S:=0;

for i:=1 to n do

begin

if a[i] mod 2<>0 then d:=d+1;

if a[i] mod 3=0 then S:=S+a[i];

end;

writeln(d,' so le');

write('Tong la: ',S);

readln

end.

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

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

VII. Rearrange the words to make the meaningful sentences: 27. tell/ me/ to/ you/ Dong Xuan market? Can/ the way ...................................................................................................... 28. write/ tell/ I/ again/ soon/ more/ will/ to/ you ......................................................................................................... 29. PhuQuoc/ in/ largest/ is/ island/ the/ Vietnam ......................................................................................................... 30. Hoa/ country/ her parents/ lives/ in/ the/ with ..................................................................................... VIII. Rewrite the following sentences with unchanged meanings.( 0.5 points) 31. The museum is bigger than the art gallery. =>The art gallery................................................................................................. 32. Excuse me! Where is the post office? => Excuse me. Can you......................................................................................? IX. Put questions to the underlined in the sentences. 33. My mother watches TV two hours a day. ………………………………………………………..………………………………… 34. I like Tu Long best in the Weekend Meeting shows. ………………………………………………………..…………………………………. 35. The news programme often finishes at eight o’clock ………………………………………………………..…………………………………. 36. We watched the late football match on TV last night. ………………………………………………………..…………………………………. 37. The new television is ten thousand million dong. ………………………………………………………..…………………………………. 38. Tom put the remote control on the bookshelf. ………………………………………………………..…………………………………. 39. They go to the English club twice a week. ………………………………………………………..…………………………………. 40. The game show lasted for two hours and a half.

Giúp minh voi.

Câu 12: Tần số sóng ánh sáng giới hạn quang điện của kim loại . Chiếu lần lượt vào bề mặt tám lin e va có tần số f= 4.5.10 Hz; f;= 5,0.10"Hz; f, = 6,5.10"Hz; f. = 3.10"Hz thì hiện tương quang đin ca B. Chỉ có bức xạ 2,. D. Không có bức xạ nào trong hai bức xạ trên. xảy ra với A. Chùm bức xạ 1;

em hãy viết bài văn nêu suy nghĩ về tinh thần dân tộc trong câu “Không sợ con vi khuẩn đó, chỉ sợ không đón được đồng bào về!” mik cần câu tl sớm nha bạn nào tl đk mik cho 5 sao nhaaaaa

" Thế rồi cơn bão qua/ Bầu trời xanh trở lại/ Mẹ về như nắng mới/ Sáng ấm cả căn nhà..." Mượn lời bạn nhỏ trong bài thơ trên, hãy hình dung và tả lại hình ảnh của mẹ lúc trở về sau cơn bão (giúp mình nha, mình đang cần gấp)

Choose the word whose stressed pattern is pronounced differently from the others . A: improve B: support C: invent D: educate

Hai xe goong chở than có m1=3m2 cùng chuyển động trên 2 tuyến đường ray ss với nhau

giúp mk vs ạ,từ ý b đến e hoặc câu nào cũng được

phân tích đoạn 1 của bình ngô đại cáo để thấy được nghệ thuật nghị luận của nguyễn trãi Mọi Người ơi giúp em với

Ứng dụng các hằng đẳng thức đáng nhớ để thực hiện các phép tính (a-b-c)^2-(a-b+c)^2 Làm hộ mink với ạ. Cảm ơn nhiều ạ

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