Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Quyết Chiến

Viết chương trình nhập 1 dãy số nguyên (N<250). Tính tổng các phần tử trong dãy và xuất ra màn hình dãy đó.Đếm số phần tử chẵn trong dãy và xuất ra màn hình.

Nguyễn Lê Phước Thịnh
17 tháng 5 2020 lúc 9:22

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<250);

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

t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

dem:=0;

writeln('Cac so chan trong day la: ');

for i:=1 to n do

if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem);

end;

writeln;

writeln('So phan tu chan la: ',dem);

readln;

end.


Các câu hỏi tương tự
Phạm Việt Bách
Xem chi tiết
mqthien2801
Xem chi tiết
Tien Nguyen
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Thùy An
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Trần Tuyền
Xem chi tiết
Giang Vũ
Xem chi tiết
Huyền Trang
Xem chi tiết