Program HOC24;
var i,n,d,d1: integer;
a: array[1..100] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
d:=0; d1:=0;
for i:=1 to n do
begin
if a[i] <0 then d:=d+1;
if a[i]>0 then d1:=d1+1;
end;
writeln('Co ',d,' so duong trong mang');
write('Co ',d1,' so am trong mang');
readln
end,
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 pascal nhập mảng A gồm N số nguyên. Tính và đưa ra màn hình tổng các phần tử của mảng A thỏa điểu kiện cho trước (chẵn, lẻ, âm , dương,…)
Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:
1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?
2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả 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
Viết chương trình nhập vào một mảng gồm n số nguyên a.in ra mảng vừa nhập b.tính và in ra màn hình tổng các cân bậc hai của các số nguyên dương trong mảng vừa nhập
Cho mảng a gồm n phần tử. Viết chương trình đưa ra số lần k xuất hiện trong mảng k được nhập vào bàn phím
