uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('So so le la: ',dem);
readln;
end.
Nhập vào dãy số gồm N phần tử đếm các số dương tính tổng và in ra màn hình các số đó
viết chương trình dãy số phần tử a gồm n phần tử (n nhập vào từ bàn phím). in ra màn hình: các phần tử của dãy, các phần tử chẵn của dãy, các phần tử lẻ của dãy.
Lưu ý: viết chung một phương trình luôn nhé
Mai mình phải nộp rồi (ngày6/5) mong mọi người giúp đỡ
Viết chương trình nhập vào dãy gồm n phần tử (n<15). Sau đó in ra màn hình giá trị các phần tử đó và cho biết có bao nhiêu phần tử có giá trị là số nguyên tố , in ra màn hình các số nguyên tố đó.
Chương trình nhập vào số nguyên gồm 4 phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số lẻ
Viết chương trình nhập 1 dãy số gồm 20 phần tử kiểu nguyên, in các số lẻ ra màn hình và tính tổng số lẻ đó
Em hãy viết chương trình nhập vào dãy số gồm n phần tử in số lẻ ra màn hình
Cho 1 mảng a gồm 100 phần tử em hãy viết chương trình đếm số lượng các phần tử chia hết cho giá trị x nhập vào tử bàn phím, in ra màn hình các phần tử đó Mình đang cần gấp mọi người giúp mình với ạ🤦
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
Viết chtr đếm các phần tử là số nguyên lẻ của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả ra mang hình
