1. Cho dãy số nguyên A gồm N phần tử. Hãy lập trình nhập vào dãy số A, tìm xem có hay không phần tử có giá trị bằng K. Dữ liệu nhập: - Dòng 1 là 2 số nguyên N và K - Dòng 2 là dãy số nguyên A Kết quả xuất ra: - in YES nếu tìm thấy, NO nếu không tìm thấy. Ví dụ 1: INPUT 4 5 9 8 2 5 OUTPUT YES Ví dụ 2: INPUT 5 2 8 5 9 7 8 OUTPUT NO 2. Đếm số lần xuất hiện của giá trị X trong mảng A. Ví dụ: INPUT 4 5 5 6 5 8 OUTPUT 2 3. Cho một số nguyên N và dãy số nguyên gồm N phần tử. Lập trình nhập vào N và dãy số. ( 1 < N < 200). Tính và thông báo ra màn hình số lượng các phần tử là số dương và chia hết cho 5. Ví dụ 1 INPUT 4 5 6 7 8 OUTPUT 1 Ví dụ 2 INPUT 7 -5 0 -5 -5 -5 10 15 OUTPUT 2

2 câu trả lời

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If (A[i]>0) and (A[i] mod 5 = 0) then inc(d);
        End;
        Write(d);
        Readln
End.

1.

Kt:=0;

For i:=1 to n do if a[i]=k then 

  Begin

    kt:=1;

    Break;

  End;

If kt=1 then write('yes') else write('no');

2.dem:=0;

for i:=1 to n do if a[i]=x then dem:=dem+1;//dem bien kq

3.dem:=0;

for i:=1 to n do if (a[i]>0)and(a[i] mod 5=0) then dem:=dem+1;//dem :bien kq

Nhập xuất tự làm