Var i,d,so:integer;
Begin
For i:=1 to 10 do
Begin
Write('so thu ',i,' = ');readln(so);
If so mod 5 = 0 then d:=d+1;
End;
Write('Co ',d,' so chia het cho 5');
Readln;
End.
viết chương trình tạo dãy A gồm N số nguyên (N≤25) và 1 số nguyên k.
A) cho biết trong dãy A có bao nhiêu số có giá trị bằng k
B) cho biết trong dãy â có bao nhiêu số chia hết cho k
C) Tính tổng các số chia hết cho k trong dãy A
Viết chương trình nhập vào từ bàn phím n và dãy số nguyên a1,a2,..an(0<n<100)
a. cho biết có bao nhiêu số lớn hơn k trong dãy a1,..,an
b. cho biết có bao nhiêu số có tổng các chữ số chia hết cho 3 ?
Viết chương trình thực hiện các công việc sau: a) Nhập vào một dãy gồm N số nguyên ( N > 50) b) Hãy in ra màn hình dãy số vừa nhập c) Nhập vào một số nguyên x bất kỳ. In ra các số chia hết cho x
Viết chương trình nhập một dãy số nguyên gồm N phần tử (N<=1000). Đếm xem dãy có bao nhiêu phần tử là số nguyên tố và tính tổng các số nguyên tố trong dãy.
Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k
Viết chương trình nhập vào 1 dãy số nguyên gồm N phần tử(N<=100) và thực hiện: _Tính tổng các số âm trong dãy vừa nhập _Đếm số lượng các số chia hết cho 3 nhưng không phải là số chẵn trong dãy đó
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
viết chương trình nhập vào dãy M gồm N (N <= 100) số nguyên. Đếm và tính tổng các số chia hết cho 3 trong dãy
Giúp mình với ạ
viết chương trình nhập vào số nguyên dương n, n <= 100 và dãy a gồm n số nguyên . Đếm xem có bao nhiêu phần tử có giá trị bằng số nguyên k
