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ê

0 bình luận về “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ê”

1. 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

   Bình luận

2. 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ình luận