viet chương trình thực hiện công việc:
khai bao mảng một chiều có 20 phần tử
tạo các giá trị ngẫu nhiên từ 0-99 cho các phần tử trong mảng.
nhập một số k bất kỳ từ bàn phím
xuất ra màn hình v tri cua phan tu co gia tri bang k nếu có
viet chương trình thực hiện công việc:
khai bao mảng một chiều có 20 phần tử
tạo các giá trị ngẫu nhiên từ 0-99 cho các phần tử trong mảng.
nhập một số k bất kỳ từ bàn phím
xuất ra màn hình v tri cua phan tu co gia tri bang k nếu có
uses crt;
var a: array [1..20] of byte;
k,i,kq: byte;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100);
write(‘Nhap so k can tim: ‘); readln(k);
for i:=1 to 20 do
begin
if a[i]=k do
begin
write(‘Ket qua: ‘,i);
kq:=i;
end;
end;
if kq=0 then(‘Khong co vi tri nao trong mang co gia tri la’,k);
readln;
end.
program oken;
uses crt;
var a: array [1..100] of integer;
k,i,vitri: integer;
begin
clrscr;
randomize;
for i:=1 to 20 do a[i]:=random(100);
vitri:=0;
write(‘Nhap k: ‘); readln(k);
for i:=1 to 20 do
begin
if a[i]=k then
begin
write(‘Vi tri: ‘,i);
vitri:=i;
end;
end;
if vitri = 0 then writeln(k,’ khong co vi tri nao trong mang’);
readln;
end.