Cho dãy A gồm N phần từ từ A1 đến An và 1 số nguyên k . Hãy cho biết có bnh phần tử trong A trùng với k Xây dựng bài toán theo cách liệt kê
2 câu trả lời
uses crt;
var n,i,k,t:integer; a:array[1..1000]of longint;
begin
clrscr;
Write('k=');readln(k);
Write('n=');readln(n);
For i:=1 to n do
begin
Write('a[',i,']=');readln(a[i]);
end;
For i:=1 to n do If a[i]=k then inc(t);
Writeln(t);
readln
end.
Bước 1: Nhập n, k
Bước 2: i ← 1 to n
Nhập A[i]
Bước 3: d ← 0;
Bước 4: i ← 1 to n
Nếu A[i]=k thì d ← d + i
Bước 5: Xuất d
