Bài 1: Cho dãy A gồm N số nguyên a1,a2-An hãy cho biết có bao nhiêu số âm trong dãy A ( ghi rõ input và output, mô tả thuật toán ở dạng liệt kê) Bà
Question
Bài 1: Cho dãy A gồm N số nguyên a1,a2….An hãy cho biết có bao nhiêu số âm trong dãy A ( ghi rõ input và output, mô tả thuật toán ở dạng liệt kê)
Bài 2: Cho dãy A gồm N số nguyên a1,a2 ….An hãy cho biết có bao nhiêu số dương trong dãy A ( ghi rõ input và output, mô tả thuật toán ở dạng liệt kê)
Bài 3:Cho dãy A gồm N số nguyên a1,a2 ….An hãy tính tổng các số dương trong dãy A ( ghi rõ input và output, mô tả thuật toán ở dạng liệt kê)
Bài 4: Cho dãy A gồm N số nguyên a1,a2 ….An hãy cho biết có bao nhiêu số hạng bằng 5 trong dãy A ( ghi rõ input và output, mô tả thuật toán ở dạng liệt kê)
in progress 0
Tin học Cora 4 tháng 2021-07-31T14:59:46+00:00 2021-07-31T14:59:46+00:00 1 Answers 1827 views -1✅ 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 ACho 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:
tuminh2: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.