viết phương trình nhập vào dãy của nhập vào dãy số và in ra màn hình các số lẻ số chẵn của dãy
viết phương trình nhập vào dãy của nhập vào dãy số và in ra màn hình các số lẻ số chẵn của dãy
By Vivian
By Vivian
viết phương trình nhập vào dãy của nhập vào dãy số và in ra màn hình các số lẻ số chẵn của dãy
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.
xin 5* + câu trả lời hay nhất
program chan_le;
uses crt;
var A:array [1..500] of integer;
n,i: integer
Begin
write(‘Nhap so phan tu cua day: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac so le: ‘);
for i:=1 to n do
if A[i] mod 2<>0 then write(A[i],’ ‘);
writeln;
write(‘Cac so chan: ‘);
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
readln
End.