Bài t
ậ
p
v
ề

nhà
:

S
ử

d
ụ
ng m
ả
ng 1
chiều, viết chương trình nhập vào
m
ả
ng g
ồ
m n ph
ầ
n t
ử
. In ra k
ế
t qu
ả

ậ
p vào m
ả
ng g
ồ
m n ph
ầ
n t
ử
. In ra k
ế
t qu
ả
:
s
ố

phần tử vừa nhập, tổng các phần tử chẵn, lẻ, đếm có bao nhiêu phần tử chẵn, lẻ.
{
code
}

{Khai báo tên chương trình}
program vd1;
{Sử dụng thư viện thao tác với màn hình, bàn phím}
uses crt;
{khai báo biến mảng}
var a:array[1 100] of integer;
{Khai báo biến dữ liệu vô hướng}
i,n,sum_even,count_odd,sum_odd,count_even:integer;

count_even := count_even + 1;
end
{kết thúc câu lệnh ghép}
{Đếm và tính tổng lẻ}
else
{Câu lệnh ghép}
begin
{Tổng lẻ}
sum_odd := a[i] + sum_odd;
{Đếm số lẻ}
count_odd := count_odd + 1;
end;
{kết thúc câu lệnh ghép} {In ra màn hình k
ế
t qu
ả

theo

yêu c
ầ
u bài toán}

{Xóa màn hình đưa về vị trí ban đầu}

Thắc mắc các em liên hệ
 0122 819 8191
