KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy
By Melanie
Viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy
uses crt; var A:array[1..1000] of integer; N,i,tong:integer; begin clrscr; write(‘Nhap N: ‘); readln(N); for i:=1 to N do begin write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]); if A[i] mod 2 = 1 then tong:=tong+A[i]; end; writeln; for i:=1 to N do if A[i] mod 2 = 1 then write(A[i]:4); writeln; write(‘Tong cac so le la: ‘,tong); readln end.
Program Tinh_tong; Uses crt; Var i,n,dem: integer; a:array[1..100] of integer; S:real; begin write(‘nhap n=’); readln(n);<br /> for i:=1 to n do<br /> begin<br /> write(‘a[‘,i,’]=’); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i] mod 2 = 0 then dem:=dem+1; S:=S+a[i]; write(‘so phan tu chan cua day la:’); write(‘ tong cac so chan la:’, S:8:2); readln end.
uses crt;
var A:array[1..1000] of integer;
N,i,tong:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(N);
for i:=1 to N do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i] mod 2 = 1 then tong:=tong+A[i];
end;
writeln;
for i:=1 to N do if A[i] mod 2 = 1 then write(A[i]:4);
writeln;
write(‘Tong cac so le la: ‘,tong);
readln
end.
Program Tinh_tong;
Uses crt;
Var i,n,dem: integer;
a:array[1..100] of integer;
S:real;
begin
write(‘nhap n=’); readln(n);<br /> for i:=1 to n do<br /> begin<br /> write(‘a[‘,i,’]=’); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then dem:=dem+1; S:=S+a[i];
write(‘so phan tu chan cua day la:’);
write(‘ tong cac so chan la:’, S:8:2);
readln
end.