viết chương trình Tongsole.pas có sử dụng câu lệnh lặp for..do để nhập N số nguyên từ bàn phím. hãy tính và in ra màn hình tổng của các số lẻ vừa được nhập vào
viết chương trình Tongsole.pas có sử dụng câu lệnh lặp for..do để nhập N số nguyên từ bàn phím. hãy tính và in ra màn hình tổng của các số lẻ vừa được nhập vào
program tongsole;
uses crt;
var i,n,S:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
if A[i] mod 2=1 then S:=S+A[i];
writeln(‘tong la:’,S);
readln
end.
Uese crt;
var a: array[1..100] ò integer;
n,i,s: integer;
begin
clrscr;
writeln(‘Nhap bao nhieu so nguyen:’); readln(n);
For i:= 1 to n do begin
writeln(‘Nhap so thu’,i,’:’); readln(a[i]);
end;
for i:= 1to n do
if a[i] mod 2 = 1 then
s:=s+a[i];
writeln(‘Tong cac so le la:’,s);
readln;
end.