Yahoo Hỏi & Đáp sẽ ngừng hoạt động vào ngày 4 tháng 5 năm 2021 (Giờ Miền Đông nước Mỹ) và từ nay, trang web Yahoo Hỏi & Đáp sẽ chỉ ở chế độ đọc. Các thuộc tính hoặc dịch vụ khác của Yahoo hay tài khoản Yahoo của bạn sẽ không có gì thay đổi. Bạn có thể tìm thêm thông tin về việc Yahoo Hỏi & Đáp ngừng hoạt động cũng như cách tải về dữ liệu của bạn trên trang trợ giúp này.
giup e vai BT pascal voi?
1. Nhập từ bàn phím dãy N số. Chỉ hiển thị các số có giá trị chẵn trong dãy số vừa nhập.
2. Nhập từ bàn phím dãy N số và 1 số K. Tìm và thông báo trong dãy số vừa nhập có chứa K hay không.
3. Nhập từ bàn phím dãy N số và 1 số K. Tìm và thông báo trong dãy số vừa nhập có chứa K hay không. Nếu có thì thông báo vị trí đầu tiên tìm được số có giá trị bằng K.
Thanks mọi người trước
àk, em đang học về mảng một chiều chưa học mảng 2 chiều nên mọi người giúp em cách giải liên quan đến mảng 1 chiều thôi nha
2 Câu trả lời
- ?Lv 61 thập kỷ trướcCâu trả lời yêu thích
Câu 1
uses crt;
var A:array[1..100]of integer;
i, N, K, kt: integer;
begin
clrscr;
write('Nhap N = '); readln(N);
for i:=1 to N do
begin
write('Phan tu thu ',i,'=');
readln(A[i]);
end;
writeln('Cac so chan');
for i:=1 to N do
if (A[i] mod 2)=0 then
write('A[',i,']=',A[i],' ');
readln;
end.
Cau 2
uses crt;
var A:array[1..100]of integer;
i, N, K, kt: integer;
begin
clrscr;
write('Nhap N = '); readln(N);
write('Nhap K = '); readln(K);
for i:=1 to N do
begin
write('Phan tu thu ',i,'=');
readln(A[i]);
end;
kt:=0;
for i:=1 to N do
if A[i]=K then
begin
kt:=i;write('A[',kt,']=',A[kt],' ');
end;
if kt=0 then
writeln('Khong co gia tri bang ',k);
readln;
end.
Cau 3
program btmr;
uses crt;
var A:array[1..100]of integer;
i, N, K, kt: integer;
begin
clrscr;
write('Nhap N = '); readln(N);
write('Nhap K = '); readln(K);
for i:=1 to N do
begin
write('Phan tu thu ',i,'=');
readln(A[i]);
end;
kt:=0;
for i:=1 to N do
if A[i]=K then
begin
kt:=i;write('A[',kt,']=',A[kt],' ');
break;
end;
if kt=0 then
writeln('Khong co gia tri bang ',k);
readln;
end.
- 1 thập kỷ trước
Của bạn Äây:
ChÆ°Æ¡ng trình Äã Äược Test rá»i Äó bạn.
Chạy Äúng 10000000% luôn:
Program Bai_1;
Uses Crt;
Var A: Array[1..100] of Integer;
i,n: Byte;
Begin
Clrscr;
Write('So phan tu cua mang A:= ');
Readln(N);
For i:=1 to N do
Begin
Write('A[',i,']= ');
Readln(A[i]);
End;
Writeln('Cac phan tu chan cua mang A la: ');
For i:=1 to N do if A[i] mod 2= 0 then Write(A[i]:6);
Readln
End.
Program Bai_2;
Uses Crt;
Var A: Array[1..100] of Integer;
N,i: Byte;
K: Integer;
B: Boolean;
Begin
Clrscr;
Write('So phan tu cua mang A:= ');
Readln(N);
For i:=1 to N do
Begin
Write('A[',i,']= ');
Readln(A[i]);
End;
Write('K= ');
Readln(K);
B:= False;
For i:=1 to N do If A[i]= K then B:= True;
If B = True then Write('Trong day co so ',k) else Write('Trong day khong co so ',k);
Readln
End.
Program Bai_3;
Uses Crt;
Var A: Array[1..100] of Integer;
N,j,i: Byte;
K: Integer;
B: Boolean;
Begin
Clrscr;
Write('So phan tu cua mang A:= ');
Readln(N);
For i:=1 to N do
Begin
Write('A[',i,']= ');
Readln(A[i]);
End;
Write('K= ');
Readln(K);
B:= False;
For i:=1 to N do If A[i]= K then B:= True;
If B = True then
Begin
Writeln('Trong day co so ',k);
j:=0;
Repeat
j:= j+1;
Until A[j]=k;
Writeln('Vi tri dau tien cua so ',k,' la: ',j)
End
else Writeln('Trong day khong co so ',k);
Readln
End.
Thân ái..!!!
*****(^.^)
