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ố.
2 câu trả lời
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!
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.
Câu hỏi trong lớp
Xem thêm
