YOMEDIA
NONE

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

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Long lanh

    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.

      bởi Long lanh 18/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON