Viết chương trình nhập vào từ bàn phím dãy số nguyên A có n phần tử và 1 số nguyên k. Sau đó in lên màn hình chỉ số i mà Ai= k hoặc thông báo không tìm thấy nếu không có số hạng nào của dãy số có giá trị = k
Viết chương trình nhập vào từ bàn phím dãy số nguyên A có n phần tử và 1 số nguyên k. Sau đó in lên màn hình chỉ số i mà Ai= k hoặc thông báo không tìm thấy nếu không có số hạng nào của dãy số có giá trị = k
program vi_tri_bang_k;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap k: ‘); readln(k);
write(‘Nhap so luong phan tu n: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i]=k then d:=d+1;
end;
if d=0 then write(‘Khong co so hang nao cua day co gia tri bang ‘,k)
else
begin
write(‘Co ‘,d,’ vi tri: ‘);
for i:=1 to n do
if A[i]=k then write(i,’ ‘);
end;
readln;
end.
program pascal;
uses crt;
var A:array[1..300] of integer;
k,i,n:byte;
begin
clrscr;
writeln(‘nhap n =’ );
readln(n);
for i:=1 to n do
begin
writeln(‘nhap phan tu thu ‘,i);
realn(a[i]):
end;
writeln(‘nhap k = ‘);
readln(k);
for i:=1 to n do
if A[i] = K then
writeln(‘chi so phan tu bang gia tri k la : ‘ , i) else
writeln(‘khong tim thay phan tu nao bang gia tri k’);
readln
end.