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


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