Bài này hôm nọ chưa là được.
program bt28;
uses crt;
var A:array[1..50] of real;
i,j,k,n,c1,c2,cs1,cs2:integer;
S,max,min,x:real;
begin
clrscr;
write('n=');readln(n);
write('Nhap x:');readln(x);
{So luong so hang duong va tong cua chung}
j:=0;S:=0;
for i:=1 to n do begin write('A[',i,']=');readln(A[i]); end;
for i:=1 to n do
if A[i]>0 then
begin
j:=j+1;
S:=S+A[i];
end;
{Chi so cua so hang duong dau tien}
for i:=n downto 1 do if a[i]>0 then cs1:=i;
{Chi so so hang duong cuoi cung}
for i:=1 to n do if a[i]>0 then cs2:=i;
{So hang lon nhat va chi so cua no}
max:=a[1];min:=a[cs1];c1:=1;c2:=cs1;
for i:=2 to n do
if a[i]>max then begin max:=a[i];c1:=i; end;
{So hang duong nho nhat va chi so cua no}
for i:=1 to n do
if (a[i] < min) and (a[i] > 0) then begin min:=a[i];c2:=i;end;
writeln('So luong cac so hang duong:',j);
writeln('Tong so hang duong:',S:4:4);
writeln('Chi so so hang duong dau tien:',cs1);
writeln('Chi so so hang duong cuoi cung:',cs2);
writeln('So lon nhat trong day la ',max:2:2,' va chi so cua no la ',c1);
writeln('So hang duong nho nhat la ',min:2:2,' va chi so cua no la ',c2);
{Xet 2 phan tu lien tiep co bang x khong}
k:=0;
for i:=1 to n-1 do
if (a[i]+a[i+1]=x) then begin
k:=k+1;
writeln('Phan tu A[',i,'] va A[',i+1,'] co tong bang x'); end;
if k=0 then writeln('Khong co 2 phan tu lien tiep nao ma tong bang x');
readln
end.
Tiêu đề: Bai tap 28 
Tue Nov 23, 2010 9:31 pm
