Tin học Nhập mảng một chiều

[phansonglua]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập mảng một chiều n phần tử kiểu nguyên và nhập số k từ bàn phím.tìm trong mảng có phần tử nào =k không.nếu có đưa ra vị trí số k(tìm kiếm tuần tự)

 

[bittercandy1195]

uses crt;
var a:array[1..250] of integer;
    i,n:byte;
    k:integer;
begin
 clrscr;
 write('nhap so phan tu cua day: ');
 readln(n);
 for i:=1 to n do
  begin
   write('nhap phan tu thu ',i,': ');
   readln(a[i]);
  end;
 write('nhap khoa k: ');
 readln(k);
 for i:=1 to n do
  if a[i]=k then write('vi tri phan tu co gia tri bang ',k,': ',i);
 readln
end.