Viết chương trình tính tổng các số chia hết cho 3 của mảng số nguyên A gồm n phần tử, với A nguyên dương nhập từ bàn phím và n<=150

maihue1980.dc

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

milky4817418126

Uses crt;
Var A:array[1..150] of integer;
s, i, n: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('a[',i,']: ');
Readln(a[i]);
End;
s:=0;
For i:=1 to n do if a[i] mod 3 = 0 then s:=s+a[i];
Write('Tong cua cac so do la: ',s);
Readln
End.

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

ngoclieuhoa1234

program ct;

uses crt;

var s,n,i:integer;

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

begin

clrscr;

write('nhap n=');readln(n);

for i:=1 to n do

begin

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

end;

s:=0;

for i:=1 to n do

if A[i] mod 3=0 then s:=s+A[i];

writeln('tong cac so chia het cho 3 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

câu lệnh nào sau đây dùng để in giá trị trong biến x ra màn hình ? A. Writeln(x); B. Write(x); C. Write(x:3) D. Cả A,B,C đều đúng

Hãy cho viết ý kiến của em về triết lý giáo dục sau “ tiên học lễ , hậu học văn “

(x-1). (2x-3) >0 (x^2+2). (x-5)>0 giúp mk với chiều mình thi rồi

hãy viết một đoạn văn ngắn nói về cách làm sticky rice

Người tối cổ tiến hoá thành người tinh khôn như thế nào?

Có ý kiến cho rằng trong thời đại hiện nay không cần quan tâm đến vấn đề tôn sư trọng đạo Em có đồng ý với ý kiến đó ko?

Nêu đặc điểm sông ngòi việt nam

Cách phân biệt dd không màu KNO3

Lớp 5A và 5B có tổng số học sinh là 50 học sinh .Biết số học sinh của lớp 5B cộng với 1 nửa lớp 5A thì kém tổng số học sinh của 2 lớp là 10 học sinh.Hỏi lớp 5A có bao nhiêu học sinh?

Viết đoạn văn khoảng năm bảy câu nói về ngày khai trường của em

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