program viet_chuong_trinh;
uses crt;
var
a:array[1..50] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to 50 do
begin
writeln('Moi nhap so thu ',i,':=', a[i]); readln(a[i]);
end;
for i:=1 to 50 do
if (a[i] mod 2 = 1) then writeln(a[i]);
end.
Viết chương trình nhập vào một mảng gồm n phần tử (n<=10). In mảng vừa nhập ra màn hình.
Viết chương trình nhập vào mảng a gồm n phần tử in ra màn hình phần tử thứ 3 của mảng
viết chương trình nhập vào một dãy số nguyên có tối đa 50 phần tử vào biếng mảng A thực hiện các việc sau:
+tính tổng các phần tử của dãy số vừa nhập
+in ra các số lẻ vừa nhập và tính tổng của chúng(số lẻ không chia hết cho 2)
+in ra các số chẵn vừa nhập và tính tổng của chúng ( số chẵn là số chia hết cho 2)
Giúp em với ạ!!!
Giúp em với ạ! Em cảm ơn nhiều ạ. Mai em kiểm tra rồi ạ.
Nhập vào mảng A có 1 phần tử nguyên . Hãy thực hiện :
a . Đếm các phần tử dương có trong mảng .
b . Tính tổng các phần tử chẵn có trong mảng .
c . Xuất các số lẻ và vị trí các số lẻ có trong mảng ra màn hình .
d . Tìm phần tử lớn nhất có trong mảng .
e . Sắp dãy A thành 1 dãy tăng
f . Nhập khóa K .Tìm K có xuất hiện trong dãy không , nếu có cho biết vị trí Kxuất hiện .
Nhập vào 1 mảng có N số nguyên ( N< 1000 )
1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập
2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .
Viết chương trình nhập vào mảng bất kì từ bàn phím. Xuất ra màn hình tổng các phần tử lẻ hoặc chẵn các phần tử vừa nhập
cho mảng A gồm N số nguyên dương (A1..An)
a) Xuất ra các phân tử của mảng vừa nhập
b) Tính tổng của các phân tử mảng ở vị trí đầu (nửa dãy đầu)
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ố hoàn hảo ?
