Cho dãy a gồm n số nguyên a1 a2 ...an n.cho biết a đó có bao nhiêu số chia hết cho 5

Cho dãy A gồm N số nguyên a1,a2,…,an A) tính các số âm B) Đếm các số vừa chia hết cho 3 và vừa chia hết cho 5 trong dãy Yêu cầu viết thuật toán ( đâ

Home/ Môn học/Tin học/Cho dãy A gồm N số nguyên a1,a2,…,an A) tính các số âm B) Đếm các số vừa chia hết cho 3 và vừa chia hết cho 5 trong dãy Yêu cầu viết thuật toán ( đâ

✅ Cho dãy A gồm N số nguyên A1,A2 -An hãy cho biết có bao nhiêu số 5 trong dãy A

Cho dãy A gồm N số nguyên A1，A2 -An hãy cho biết có bao nhiêu số 5 trong dãy A

Hỏi:

Cho dãy A gồm N số nguyên A1，A2 ….An hãy cho biết có bao nhiêu số 5 trong dãy A

Đáp:

Program BTT;
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]=5 then inc(d);
End;

Write(‘Co ‘，d，’ so 5′);
Readln
End.

Program BTT;
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]=5 then inc(d);
End;

Write(‘Co ‘，d，’ so 5′);
Readln
End.