viết chương trình tìm vị trí phần tử âm đầu tiên trong mảng, nếu không có phàn tử âm trả về -1 pascal

0 bình luận về “viết chương trình tìm vị trí phần tử âm đầu tiên trong mảng, nếu không có phàn tử âm trả về -1 pascal”

1. program oken;
   uses crt;
   var a: array [1..10000] of longint;
       i,n,vitri:longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘); readln(a[i]);
                   end;
           for i:=n downto 1 do
                   if a[i]<0 then vitri:=i;
           if vitri<>0 then
                   writeln(‘Vi tri: ‘,vitri)
           else
                   writeln(‘Vi tri: -1’);
           readln;
   end.

   Bình luận

2. Mình làm hơi vội nên có gì sai thì bạn thông cảm nha. =))))

   uses crt;
   var a: array[-500..500] of integer;
       i,n,cs:byte;
   begin
   clrscr;
   write(‘Nhap so cac so: ‘); readln(n);
   cs:=0;
   for i:=1 to n do
    begin
     write(‘a[‘,i,’]:’); readln(a[i]);
    end;
   for i:=1 to n do
    begin
     cs:=cs+1;
     if a[i]<0 then
      begin
       write(‘Phan tu am dau tien o vi tri: ‘,cs);
       break;
      end;
    end;
     if a[i]>=0 then write(‘-1’);
   readln;
   end.

   Bình luận