viết chương trình nhập dãy A gồm n nguyên (n <= 100) a) đếm số lượng các số lẻ ở vị trí chẵn b) tính tổng giá trị các số nguyên tố trong dãy
1 câu trả lời
a, Program SX;
Uses crt;
Var A:array[1..10000] of longint;
i,n,d1,d2,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
b, Write('Co ',d1,' gia tri chan, ',d2,' so la boi cua 5, tong cua cac so le la ',s);
Readln
End.
chúc bn hok tốt !!!
