Question

Viết phương trình nhập vào 1 mảng số nguyên A có tối đa không quá 200 phần tử và

Answer 1

uses crt;

var i,n,k,x,y:integer;

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

begin

writeln('nhap n va k');readln(n,k);

for i:=1 to n do begin

write('a[i]=');

readln( a[i]);

end;

i:=1;y:=0;

if a[1]<>k then

while (y=0)and(i<=n) do

if a[i]=k then begin x:=i;

y:=y+1;end

else i:=i+1;

writeln('vi tri dau tien la ',x);

for i:=1 to n do

if a[i]=k then begin

x:=i;

writeln('vi tri k trong mang la ',x);

end;

readln

end.