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.
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.
