Viết công thức nhập vào 5 số từ bàn phím. Tìm và in ra tổng các số lẻ. Trong con chương trình có sử dụng hàm tìm và tính tổng các số lẻ trong 5 số.

bongbay

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

lethithanhhue

program ct;

uses crt;

type M=array[1..1000] of integer;

var A:M;

i:integer;

function N(x:M):integer;

var S:longint;

begin clrscr;

S:=0;

for i:=1 to 5 do

if x[i] mod 2=1 then S:=S+x[i];

N:=S;

end;

begin

for i:=1 to 5 do

begin

write('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

N(A);

writeln('Tong cac so le: ',N(A));

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

quangtan169

program ct;

uses crt;

type M=array[1..1000] of integer;

var A:M;

i:integer;

function N(x:M):integer;

var S:longint;

begin clrscr;

S:=0;

for i:=1 to 5 do

if x[i] mod 2=1 then S:=S+x[i];

N:=S;

end;

begin

for i:=1 to 5 do

begin

write('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

N(A);

writeln('Tong cac so le: ',N(A));

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1.sau khi giành lại độc lập ,họ Khúc đã làm gì để củng cố quyền tự chủ của đất nước / Ý NGHĨA CỦA NHỮNG VIỆC LÀM ĐÓ ?

làm 2 đoạn văn sau: đề 1:từ nội dung văn bản có trong đoạn trích trên, hãy viết một đoạn từ 8-10 câu nêu suy nghĩ của em về đức tính giản dị của bác. Đoạn văn sử dụng 1 câu đặc biệt. đề 2:Noi gương bác em đã làm gì trong những ngày nghỉ dịch covid?Hãy viết một đoạn văn từ 8-10 câu nêu suy nghĩ về tinh thần vượt khó của mỗi người trong thời đtểm đất nước hiện nay. Nhanh lên mình đang cần gấp

cho ΔABC ⊥ A, biết AB=6 cm. AC= 8cm. vẽ đường cao AH a,chứng minh ΔHBA~ ΔABC b, tính BC,BH,CH c,từ H kẻ HM ⊥AB và HN ⊥AC. chứng minh AM.AB=AN.AC

Hai dòng điện cường độ I1 = 3A; I2 = 2A chạy cùng chiều trong 2 dây dẫn song song và cách nhau 50 cm. A,Xác định vectơ cảm ứng từ tại điểm M cách i1 30cm, i2 20cm B, xác định vectơ cảm ứng từ tại điểm N cách dòng i1 30 cm, i2 40cm Giúp em với, em cảm ơn ạ

một bể nước hình hộp chữ nhật chiều rộng 4 ,dài 6m cao gấp 4 lần A] tính thể tích B] bể ko có nướcngta cho 1 vòi chảy vào bể cứ 1 phút chảy 600 lít hỏi muốn chảy 3/4 bể thì mất bao lâu

Giúp mk câu 1,2,4 nha😋😋😋😋😋😋📸

Trong bộ truyền động xích, đĩa líp có tốc độ quay 75 vòng / phút , đĩa xích có tốc độ quay là 25 vòng / phút. Tóm tắt đề, tính tỉ số truyền và cho biết số răng đĩa nào nhiều hơn bao nhiêu lần?

Giải giúp mình câu 1 vs câu 3 nha

bài 1 ;so sánh a, -123/-125 và 130/131 b, 1777/1778 và -1999/-2000 c, -13/19 và -3/5 d,5/4 và 14/13 e, 456/23 và 456/32 f, -234/235 và -236/237 mình đang cần gấp

Tả một người lớn tuổi mà em yêu quý.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến