Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhât Vinh

viết chương trình dãy A gồm N số nguyên khác nhau và 1 số nguyên K cho biết vị trí phần tử có giá trị bằng K trong dãy ( nếu có )

Nguyễn Lê Phước Thịnh
12 tháng 10 2019 lúc 11:11

uses crt;

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

i,n,k,vt:integer;

begin

clrscr;

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

for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------}
for i:=1 to n do write(a[i]:4);
{---------------------------------------------------}

writeln;

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

for i:=1 to n do

if a[i]=k then vt:=i;

writeln('vi tri xuat hien cua ',k,' trong day so la vi tri thu: ',vt);

readln;

end.


Các câu hỏi tương tự
Nguyen Thi tuong Vi
Xem chi tiết
Nhât Vinh
Xem chi tiết
bui pham phuong Uyen
Xem chi tiết
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết
Nguyễn Công Tuấn
Xem chi tiết
Nguyễn Công Tuấn
Xem chi tiết
Long Thiên
Xem chi tiết