Tạo dãy số nguyên có phần tử $\left ( n\leq 30 \right )$, giá trị của phần tử được sinh ra ngẫu nhiên $\epsilon [11..21]$:
a) Xuất dãy ra màn hình.
b) Nhập vào một số nguyên k từ bàn phím. Xác định vị trí đầu tiên của k trong dãy nếu có.
Giải:
program btvn;
uses crt;
var A:array[1..30] of integer;
n,i,k:integer;
begin
clrscr; randomize;
write('nhap so phan tu n:');
readln(n);
for i:=1 to n do A[i]:=random(11)+11;
for i:=1 to n do write(A[i]:5); writeln;
write('nhap k:'); readln(k);
i:=1;
while not A[i]=k do i:=i+1;
write('vi tri dau tien cua k trong day:',i);
readln
end.
BÀI GIẢI SAI CHỖ NÀO Ạ, BẠN NÀO GIÚP VỚI, SAI HẾT THÌ SỬA GIÚP MÌNH LUN , MỚI BẮT ĐẦU CẢM THẤY THÍCH HỌC PASCAL THÔI CHỨ NGU LẮM NÊN ĐỪNG CHỬI, CẢM ƠN NHIỀU Ạ
Bài viết đã được chỉnh sửa nội dung bởi xzlupinzx: 04-03-2017 - 10:23