Var n,i:integer;
Begin
Write('nhap n:');readln(n);
For i:=1 to n do
Begin
If i mod 2<>0 then write(i,' ');
Inc(dem);
End;
Write(' co tat ca:', dem,' so le');
Readln;
End.
viết chương trình nhập vào mảng a gồm n phần tử số nguyên a1...an đếm xem trong mảng có bao nhiêu phần tử chẵn và tích tổng các giá trị của phần tử chẵn và thông báo ra màn hình
Viết chương trình vào 1 mảng số nguyên phải thực hiện các công việc: a). Đếm xem có bao nhiêu phần tử dương và phần tử âm trong mảng b). Tính và đưa ra màng hình tổng các số dương và tổng câc số âm
Cho mảng B gồm n (n ≤ 100) phần tủ nguyên. Viết chương trình thực hiện các yêu cầu sau:
a. Đếm xem trong mảng có bao nhiêu phần tử âm, phần tử dương.
b. Tính trung cộng các phần tử khác 0 trong mảng.
c. Đưa ra màn hình giá trị nhỏ nhất cùng với chỉ số.
viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau
A nhập mảng
B in mảng
C đếm xem có bao nhiêu phần tử = 0 trong dãy
D tính tổng các phần tử chẵn trong dãy
giúp vs ạ
Viết chương trình nhập vào mảng A gồm có 50 phần tử kiểu nguyên a. Đếm mång có bao nhiêu số chẵn b. Tìm phần tử âm bé nhất trong mảng
PLEASE HELPPPP MEEEEE!!!!
Viết chương trìnha. Nhập mảng A gồm các số nguyên.b. Xuất mảng vừa nhập.c. In ra các phần tử âm và lẻ trong mảng.d. Tính tổng các phần tử âm và lẻ.
Cho mảng gồm n số nguyên a1, a2, a3, ...., an. Hãy lập trình để đếm xem trong mảng có bao nhiêu số chính phương? Em hãy viết đoạn chương trình nhập các phần tử của mảng bài toán trên.
Viết chương trình nhập vào bàn phím mảng 1 chiều gồm n phần tử. Đếm số phần tử đặc biệt trong mảng: Các phần tử dương ( âm, ko dương, ko âm) đồng thời chia hết(ko chia hết) cho 1 số bất kỳ.
Mn giúp em vs ạ!!!
