Lời giải :
program hotrotinhoc;
var a: array[1..32000] of integer ;
i,n,tong : integer;
begin
write('N='); readln(n);
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
write(tong);
readln
end.
nhập vào dãy N số nguyên (N nhạp từ bàn phím ) đếm xem trong dãy có bao nhiêu số chẵn
Cho dãy A gồm N số nguyên dương A1,A2,A3...An (N<=500).Viết chương trình thực hiện tính tổng các số lẻ của dãy. Viết hàm kiem_tra (x:integer):boolean;(hàm trả về giá trị bằng TRUE nếu x là số lẻ, hàm trả về giá trị bằng FALSE nếu x là số chẵn
Hãy viết chương trình tính tổng diện tích 5 hình tròn, biết bán kính hình tròn được nhập từ bàn phím. Yêu cầu: Trong chương trình phải xây dựng các chương trình con thực hiện các công việc sau: Nhập bán kính một hình tròn Tính diện tích của một hình tròn
Viết chương trình nhập vào bàn phím mảng 1 chiều A gồm N(N<=200) phần tử nguyên .Tính và viết ra màn hình tổng các số âm có trong mảng A (chương trình sử dụng chương trình con kiểm tra số nguyên âm của số m để viết)
Nhập vào mảng 1 chiều gồm n phân tử là các số nguyên sau đó đếm trong mảng có bao nhiêu số lẻ
C++ : Viết chương trình sử dụng chương trình con
VD: Cho mảng a có N phần tử ( N là số nguyên)
a) Nhập/ Xuất mảng
b) Tính tổng giá trị chẵn/ lẽ của các phần tử trong mảng
c) Đưa ra màn hình các giá trị chẵn/ lẽ trong mảng
d) Tính trung bình cộng các giá trị chẵn/ lẻ trong mảng e) Đưa ra giá trị nhỏ/ lớn nhất của mảng
nhập từ bàn phím số nguyên dương n đưa ra kết quả tính tổng các số có 5 chữ số chia hết cho n
Cho 50 số nguyên được ghi trong tệp 'NUMBER.TXT' (dữ liệu được ghi trên một dòng). Hãy viết chương trình đọc các số nguyên chẵn trong 50 số nguyên đó và ghi ra tệp 'KQ.TXT' GIÚP E VỚI Ạ. E ĐANG CẦN GẤPPPPP
Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó in ra màn hình giá trị lớn nhất của dãy số
