Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Anh Nguyen

VCT nhập vào một mảng A gồm m số nguyên (m được nhập từ bàn phím).xuất ra các phần tử của mảng A theo dòng giữa các phần tử cách nhau 1 khoảng trắng.tính tổng của các phần tử chia hết cho 2 nhưng không chia hết cho 3 có trong mảng.

Thiện
22 tháng 4 2019 lúc 21:34

uses crt;

var m,i,t:longint;

a:array[1..1000] of longint;

begin

wirte('nhap so phan tu cua mang:');readln(m);

for i:=1 to m do

begin

write('nhap a[',i,':');readln(a[i]);

end;

t:=0;

for i:=1 to m do

begin

write(a[i],' ');

if (a[i] mod 2=0) and (a[i] mod 3 <>0) then t:=t+a[i];

end;

writeln;

write('tong=',t);

readln

end.

( bạn chỉ cần copy code này và vào pascal chọn edit rồi nhấn " paste from windows" là dc rồi)

Minh Lệ
23 tháng 4 2019 lúc 12:36

Lời giải:

program hotrotinhoc ;

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

i,m,tong : integer ;

begin

write('m='); readln(m);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to m do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0;

for i:= 1 to m do

if (a[i] mod 2=0) and (a[i] mod 3 <> 0) then tong:=tong+a[i];

write(tong);

readln

end.


Các câu hỏi tương tự
duyy
Xem chi tiết
Tùng Bùi
Xem chi tiết
Hoài Right
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Nguyễn Hồng Hạnh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Nguyễn Hoàng Minh Anh
Xem chi tiết
Hoàng Thị Thanh Mỹ
Xem chi tiết