Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mạnh Dương Nguyễn

viết chương trình nhập vào 1 dãy số gồm n là số nguyên. số phần tử của dãy số được nhập từ bàn phím

a. in dãy số vừa nhập ra màn hình

b.tính tổng các phần tử chẵn của dãy số

Nguyễn Lê Phước Thịnh
26 tháng 6 2020 lúc 21:58

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.


Các câu hỏi tương tự
Hiền Nguyễn
Xem chi tiết
Huyền Trần
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Bình
Xem chi tiết
Thư ĐT
Xem chi tiết
vy tường
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Mỹ Phượng
Xem chi tiết
Minh Đạt
Xem chi tiết