Đề chỉ chụp đến câu a nên chỉ làm được câu a và chương trình nhé !

a)

Input: Số N, Dãy B gồm N phần tử, Số X

Output: Các vị trí của X trong dãy B, Dãy số vừa nhập 

------------------------------

Chương trình:

uses crt;

var b: array[1..100] of real;

i,n,d: integer;

x: real;

begin

clrscr;

write ('nhap n: ');  readln (n);

write ('nhap x: ');  readln (x);

d:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (b[i]);

if b[i]=x then d:=d+1;

end;

If x=0 then writeln ('Khong tim thay')

else 

begin

write ('Cac vi tri cua ',x,' la: ');

for i:=1 to n do if b[i]=x then write (i:4);

end;

writeln;

write ('Cac so vua nhap la: ');

for i:=1 to n do write (b[i]:3);

readln;

end.

uses crt;
var B: array [1..1000] of real;
    i,n,d: integer;
    x: real;
begin
    clrscr;
    write('nhap so luong phan tu: '); readln(n);
    write('nhap x = '); readln(x);
    for i:=1 to n do
        begin
            write('nhap so thu ',i,': '); readln(B[i]);
            if B[i] = x then d:=d+1;
        end;
    write('so x = ',x,' o vi tri: ');
    if d = 0 then write('khong tim thay')
    else
        for i:=1 to n do
            if B[i] = x then write(i,'; ');
    writeln;
    write('day vua nhap la:');
    for i:=1 to n do write(B[i]:3:1,'   ');
    readln;
end.