BÀI TẬP VỀ MẢNG

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

BÀI TẬP VỀ MẢNG

Bài gửi  tyty53 on 2011-07-04, 15:39

1. viết chương trình nhập vào một dãy số a[1]. a[2]...,a[n] và in ra màn hình thông tin
-Tổng các phần tử của dãy.
-số lượng số dương và tổng các số dương của dãy?
-số lượng số âm và tổng các số âm của dãy?
trung bình cộng của dãy?
2. viết chương trình nhập vào một dãy n số a[1], a[2]...,a[n] và in ra màn hình các thông tin sau
-số hạng dương lớn nhất của dãy và vị trí của nó??
-số hạng dương nhỏ nhất của dãy và vị trí của nó?nhập vào mản a gồm 10 phần tuwe, sau ssos nhập
-số hạng âm lớn nhất của dãy và vị trí của nó?
-số hạng âm nhỏnhất của dãy và vị trí của nó?
3. viết chương trình nhập vào mảng a gồm 10 phần tử nguyên, sau đó, nhập một giá trị x. tìm trong mang a nếu có phần tử nào có giá trị bằng với x thì hiện thị lên màn hình vị trí của nó trong mảng a??
à các anh chị nhớ giải thích các câu lênh hộ em với. cảm ơn chúc diễn đàn sc khỏe Very Happy

tyty53

Tổng số bài gửi : 7
Join date : 01/07/2011

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BÀI TẬP VỀ MẢNG

Bài gửi  Pascal_Master on 2011-07-14, 16:58

program bt1;
var
n,i,tongcacpt,demsoduong,tongsoduong,demsoam,tongsoam:integer;
tbc:real;
a:array [1..1000] of integer;
begin
writeln('-Nhap so phan tu: ');
readln(n);
for i:=1 to n do
begin
writeln('-Phan tu thu ',i,': ');
readln(a[i]);
end;
tongcacpt:=0;
for i:=1 to n do tongcacpt:=tongcacpt+a[i];
writeln('-Tong cac phan tu cua day: ',tongcacpt);
demsoduong:=0;
demsoam:=0;
tongsoduong:=0;
tongsoam:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
inc(demsoduong);
tongsoduong:=tongsoduong+a[i]
end;
if a[i]<0 then
begin
inc(demsoam);
tongsoam:=tongsoam+a[i]
end;
end;
writeln('-Day nay co ',demsoduong,' so duong co tong la: ',tongsoduong);
writeln('-Day nay co ',demsoam,' so am co tong la: ',tongsoam);
tbc:=tongcacpt/n;
writeln('-Day nay co trung binh cong la: ',tbc:4:2);
readln
end.

Xong!!!!!!!

Pascal_Master

Tổng số bài gửi : 2
Join date : 14/07/2011

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BÀI TẬP VỀ MẢNG

Bài gửi  Pascal_Master on 2011-07-14, 17:08

câu 2 và 3 lười làm quá, để bữa khác

Pascal_Master

Tổng số bài gửi : 2
Join date : 14/07/2011

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BÀI TẬP VỀ MẢNG

Bài gửi  tyty53 on 2011-09-14, 16:07

mong anh có rảnh giai dùm mấy bài kia nữa di.

tyty53

Tổng số bài gửi : 7
Join date : 01/07/2011

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: BÀI TẬP VỀ MẢNG

Bài gửi  Sponsored content Today at 07:22


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết