Question

[Hà Bùii]

Viết chương trình nhập vào mảng 1 chiều các số nguyên sau đó:

a. Đếm xem có bao nhiêu phần tử có giá trị bằng 100

b. Đếm xem có bao nhiêu phầm tử có giá trị dương và tính tổng của chusng

c. Tìm số dương đầu tiên và chỉ số của nó trong mảng

d. Sắp xếp giá trị của mảng theo thứ tự giảm dần rồi in ra màn hình.

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
var a:array[1..100]of integer;
n,i,dem,dem1,t,j,tam:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------xuat-day---------------------}
for i:=1 to n do
write(a[i]:4);
{-----------cau-a----------------------------}
writeln;
writeln('{-----------------------------------------------------}');
dem:=0;
for i:=1 to n do
if a[i]=100 then inc(dem);
writeln('so phan tu co gia tri bang 100 la: ',dem);
{---------cau-b-------------------------------------}
writeln('{-----------------------------------------------------}');
dem1:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem1);
t:=t+a[i];
end;
writeln('so phan tu co gia tri duong la: ',dem1);
writeln('tong cac phan tu co gia tri duong la: ',t);
{--------------cau-c-----------------------}
writeln('{-----------------------------------------------------}');
i:=1;
while a[i]<=0 do
inc(i);
writeln('so nguyen duong dau tien trong day la: ',a[i]);
writeln('chi so cua so nguyen duong do la: ',i);
{---------------cau-d-----------------------}
writeln('{-----------------------------------------------------}');
writeln('day so duoc sap xep giam dan la: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.