#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]==0) 

{cout<<i; break; }

return 0;

}

Tham khảo

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

2: 

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do 

  if a[i]<0 then write(i:4);

readln;

end.

sao bài này giống bài tập cô mình giao thế nhỉ:>

4 

var max,min,n,i: integer;

a:array [1..100] of integer;

begin

write('nhap so phan tu: ');readln(n);

for i:=1 to n do

begin

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

end;

max:=a[1];min:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

write('so lon nhat trong day la: ',max);writeln;

write('so nho nhat trong day la: ',min);writeln;

readln;

end.

uses crt;

var a:array[1..1000]of integer;

i,n,k,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  if a[i]=k then 

begin

writeln(i);

break;

end;

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

if dem>0 then writeln('Co ',dem,' phan tu bang ',k)

else writeln('Khong co phan tu nao bang ',k);

readln;

end.

Dãy con tăng ngặt là dãy con tăng dần ko liền đúng ko bạn
Do nếu nói là "dãy con" thì vừa có thể là liền, vừa có thể ko liền

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

{

cin>>a[i];

}

for (i=1; i<=n; i++)

if (a[i]%2==0) 

{

cout<<i;

break;

}

return 0;

}