Nhập vào một dãy n số nguyên A[1],A[2],…,A[n] . Đọc ra màn hình chỉ số của số hạng dương đầu tiên của dãy.

0 bình luận về “Nhập vào một dãy n số nguyên A[1],A[2],…,A[n] . Đọc ra màn hình chỉ số của số hạng dương đầu tiên của dãy.”

1. program ct;
   uses crt;
   var A:array[1..1000] of integer;
         i,n,d:integer;
   begin clrscr;
      write(‘Nhap so phan tu: ‘); readln(n);
      for i:=1 to n do
        begin
           write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
        end;
      write(‘Chi so cua so hang duong dau tien la: ‘);
      for i:=1 to n do
        begin
           if A[i]>0 then
             begin
                write(i);
                inc(d);
             end;
           if d=1 then break;
        end;
   readln;
   end.

   Học tốt!

   

   Bình luận

2. uses crt;
   var i,n:longint; a:array[1..10000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
      i:=1;
      while (i<n+1)and(a[i] mod 2<>0) do inc(i);
      if i=n+1 then writeln(‘Khong co chi so nao hop le!’) else writeln(i);
   readln
   end.

   //////////////////////////////////////////////////

   

   Bình luận