uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
write(dem);
readln;
end.
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 đó
Hãy viết chương trình nhập vào số nguyên dương A gồm 10 phần tử. Đếm số lượng các số chẵn trong dãy A vừa nhập. Đưa ra màn hình : dãy số vừa nhập, số lượng số chẵn trong dãy số vừa đếm được .
Mọi người ơi, giúp mình với ạ mình cảm ơn rất nhiều !!
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 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.
Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.
Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.
Giúp mik 2 bài này trong tối nay vs ạ Tks.
cho dãy số nguyên gồm 20 phần tử nhập từ bàn phím. viết chương trình thực hiên các yêu cầu sau: 1) đếm số lượng phần tử của dãy là các số nguyên tố
Viết chương trình nhập vào dãy số nguyên a có n phần tử.
a. Xuất các phần tử đã nhập ra màn hình.
b. Xuất ra màn hình các số dương.
c. Tính tổng các phần tử có trong dãy a.
d. Đếm số lượng số chẵn.
e. Cho biết có bao nhiêu số có giá trị bằng k và cho biết vị trí các số đó.
f. Tìm giá trị lớn nhất.
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
