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ó

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.

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.