1)Nhập 1 dãy số gồm n phần tử. Viết chương trình tính tổng n phần tử đó
2)nhập 1 dãy số nguyên gồm n phần tử. Viết chương trình tính tích n phần tử đó
3) nhập dãy số nguyên gồm n phần tử. Viết chương trình in ra những phần tử có giá trị chẵn trong máy
4) nhập 1 dãy số nguyên gồm n phân tử. Viết chương trình in ra số có giá trị lẻ trong mảng
5)nhập vào dãy số nguyên gồm n phần tử. Viết chương trình tính tổng các số chẵn có trong mảng
6)nhập vào dãy số nguyên gồm n phần tử. Viết chương trình tính tổng các số lẻ có trong mảng
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
Đếm số chẵn
var n,i,sl:integer;
begin
sl:=0; readln(n);
for i:=1 to n do
if i mod 2 = 0 then sl:=sl+1;
writeln(sl);
readln;
end.
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |