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

Ngọc Thảo

Viết ct khai báo mảng B có n phần tử nhập giá trị cho các phần tử của mảng B.Tính in ra màn hình tổng các số chẵn/số lẻ trong mảng B

híp
23 tháng 4 2019 lúc 21:22

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

i,tong1,tong2,n:integer;

begin

writeln('nhap do dai cua day so:'); readln(n);

for i:=1 to n do

begin

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

end;

tong1:=0; tong2:=0;

for i:=1 to n do

begin

if b[i] mod 2=0 then tong1:=tong1+b[i];

if b[i] mod 2=1 then tong2:=tong2+b[i];

end;

writeln('tong so chan la:',tong1);

writeln('tong so le la:',tong2);

readln

end.

Bình luận (0)
Minh Lệ
23 tháng 4 2019 lúc 21:21

Lời giải :

program hotrotinhoc ;

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

i,n,tong1,tong2 : integer ;

begin

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

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

for i:= 1 to n do

begin

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

end;

tong1:=0 ; tong2:=0;

for i:= 1 to n do

begin

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

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

end;

writeln('Tong cac so le la :',tong1);

write('Tong cac so chan la:',tong2);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Khang Đinh Hoàng
Xem chi tiết
Tùng Bùi
Xem chi tiết
duyy
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Joyceeeee
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Thị Ngọc Thảo Đinh
Xem chi tiết