BÀI TẬP VỀ MẢNG

[tyty53]

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

[Pascal_Master]

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]

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

[tyty53]

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

[Sponsored content]