Question

Viết chương trình nhập vào mảng 1 chiều các số nguyên không quá 250 phần tử. a) tìm số dương đầu tiên và chỉ số của nó trong mảng b) tìm số âm đầu tiên và chỉ số của nó trong mảng c) tìm số dương cuối cùng và chỉ số của nó trong mảng d) tìm số âm cuối cùng và chỉ số của nó trong mảng Ai giải giúp với ạ

Answer 1

uses crt;

var a,b,c:array[1..250]of integer;     i,n,dem,dem1,sd,vtd,sa,vta,sdcc,sacc,vtd1,vtc1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do  

begin      

write('A[',i,']='); readln(a[i]);  

end;

dem:=0;

dem1:=0;

for i:=1 to n do  

begin      

if a[i]>0 then        

begin            

dem:=dem+1;            

b[dem]:=a[i];        

end;      

if a[i]<0 then        

begin            

inc(dem1);            

c[dem1]:=a[i];        

end;  

end;

writeln('So duong dau tien trong day la: ',b[1]);

sd:=b[1];

vtd:=n;

for i:=n downto 1 do  

if sd=a[i] then      

begin        

if vtd>i then vtd:=i;      

end;

writeln('Chi so cua no la: ',vtd);

writeln('So am dau tien trong day la: ',c[1]);

sa:=c[1];

vta:=n;

for i:=n downto 1 do  

if sa=a[i] then      

begin        

if vta>i then vta:=i;      

end;

writeln('Chi so cua no la: ',vta);

writeln('So duong cuoi cung trong day la: ',b[dem]); sdcc:=b[dem];

vtd1:=1;

for i:=1 to n do  

if sdcc=a[i] then    

begin        

if vtd1<i then vtd1:=i;      

end;

writeln('Chi so cua no la: ',vtd1);

writeln('So am cuoi cung trong day la: ',c[dem]); sacc:=c[dem];

vtc1:=1;

for i:=1 to n do  

if sacc=a[i] then      

begin        

if vtc1<i then vtc1:=i;      

end;

writeln('Chi so cua no la: ',vtc1);

readln;

end.