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

bài này trước kia mình làm rồi nhưng giờ thì ko còn nhớ j cả

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

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.

hi