Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) Xác định bài toán
-input: dãy n số và số k
-output: nếu có k trong dãy thì xuất vị trí của k
b) Mô tả thuật toán
-Bước 1: nhập dãy số
-Bước 2: nhập k
-Bước 3: dem:=0; i:=1;
-Bước 4: nếu a[i]=k thì begin
dem:=dem+1;
b[dem]:=i;
end;
-Bước 5: i:=i+1;
-Bước 6: Nếu i<=n thì quay lại bước 4;
-Bước 7: Xuất các vị trí của k ra màn hình (các vị trí của k được lưu trong dãy B)
-Bước 8: kết thúc
c)
-Bước 1: nhập dãy số A
-Bước 2: nhập k=3
-Bước 3: dem:=0; i:=1;
-Bước 4: nếu a[i]=k thì begin
dem:=dem+1;
b[dem]:=i;
end;
-Bước 5: i:=i+1;
-Bước 6: Nếu i<=n thì quay lại bước 4;
-Bước 7: Xuất các vị trí của k ra màn hình (các vị trí của k được lưu trong dãy B)
-Bước 8: kết thúc
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.
Xác định bài toán
-Input: số N và dãy số
-Output: Các số chẵn trong dãy
Ý tưởng: Sau khi nhập dãy xong, chúng ta kiểm tra xem trong dãy nếu có số nào chia hết cho 2 thì xuất số đó ra(Vì số chia hết cho 2 là số chẵn)
Viết thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: i←1;
-Bước 3: Nếu a[i] mod 2=0 thì xuất a[i]
i←i+1
-Bước 4: Nếu i≤n thì quay lại bước 3
-Bước 5: Kết thúc
Input: Số nguyên N; dãy A1,A2,...,AN
Output: Các số chẵn trong dãy
Ý tưởng: Kiểm tra lần lượt các phần tử trong dãy nếu phần tử đó chia hết cho 2 thì in ra
Thuật toán liệt kê:
- Bước 1: Nhập N và dãy A1,A2,...,AN
- Bước 2: i←1; d←0;
- Bước 3: Nếu i>n thì kết thúc thuật toán
- Bước 4: Nếu Ai chia hết cho 2 thì in ra Ai
- Bước 5: i←i+1; quay lại bước 3