Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sulann
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 ạ
Nguyễn Lê Phước Thịnh
16 tháng 12 2020 lúc 22:51

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.


Các câu hỏi tương tự
Le MNguyệt
Xem chi tiết
Bui Trong Diep
Xem chi tiết
Khánh Linh
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Nguyễn Thị Thanh Phương
Xem chi tiết
Benny
Xem chi tiết
LUÂN THÀNH THƯỞNG
Xem chi tiết
Tiên trần
Xem chi tiết
Khánh Linh
Xem chi tiết