Em hãy viết chương trình tạo một số nguyên n phần tử nhập từ bàn phím sau đó ai ra màn hình số chia các số chia hết cho 5 B Tính tổng các số thứ 123 của dãy và in ra màn hình

djtconmemay

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

660270417907185

program ct;

uses crt;

var s,i,n:integer;

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

begin

clrscr;

write('nhao n:=');readln(n);

for i:=1 to n do

begin

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

end;

writeln('so chia het cho 5 la:');

for i:=1 to n do

if A[i] mod 5=0 then write(A[i]);

s:=0;

for i:=1 to 3 do s:=s+A[i];

writeln('tong so 1 2 3 trong day la:',s)

readln

end.

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

lethimuiha

program ct;

uses crt;

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

i,n:integer;

S:longint;

begin clrscr;

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do

begin

writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

writeln('Cac so chia het cho 5 la: ');

for i:=1 to n do

if A[i] mod 5=0 then write(A[i]);

S:=0;

for i:=1 to 3 do

S:=S+A[i];

writeln('Tong cac so 1, 2, 3 cua day la: ',S);

readln;

end.

Học tốt!

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

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

Một cuốn sách đọc trong 3 ngàu. Ngày 1 đọc 1/3 sách. Ngày 2 đọc 2/5 sách. Ngày 3 đọc nốt 36 trang còn lại. Tính số trang cả quyển sách, ngày 1 ngày 2 đọc.

Dế Mèn đã có hành động như thế nào khi gặp chị Cào Cào,anh Giọng Vó?

Cho mình hỏi phần II và III nha Hứa sẽ vote 5 * Bài nào hay và nhiều hơn thì mình cho CTLHN nha Mọi người giúp mình với nha

Last year Last well Là thì gì Và nên thêm gì nếu có câu này

Giup tớ vs Mik k bt là thế nào. Cam on ạ 😊

Giải giùm em câu 1, 2 thôi nha câu một nhôws đúng theo yêu cầu mọi người nhớ lồng ghép những hình ảnh ở đoạn thơ cuối vào đoạn văn nha

Giải hộ em với em đang cần gấp ạ:3

Tôi giật sửng nngười thuộc kiểu câu nào

Ai giúp mình với ạ.Toán 12 về viết ptmp

Ai giải giúp mình tích phân này vs

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