viết ct nhập n số nguyên từ bàn phím
+in dãy số nguyên theo chiều ngang
+tính tổng các số chẵn trong dãy số
+sắp xếp các số trong dãy theo thứ tự tăng dần
viết ct nhập n số nguyên từ bàn phím
+in dãy số nguyên theo chiều ngang
+tính tổng các số chẵn trong dãy số
+sắp xếp các số trong dãy theo thứ tự tăng dần
program Day;
uses crt;
var A:array [1..500] of integer;
n,i,T,j: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
wrire(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Day vua nhap la: ‘);
for i:=1 to n do
begin
write(A[i],’ ‘);
if A[i] mod 2=0 then T:=T+A[i];
write(‘Tong cac so chan = ‘,T);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write(‘Mang sau khi sap xep tang dan: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln
End.
uses crt;
var i,j,n,s,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘N=’);readln(n);
s:=0;
for i:=1 to n Do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
end;
write(‘Day so theo chieu ngang: ‘);
for i:=1 to n Do write(a[i],’ ‘);
writeln;
writeln(‘Tong cac so chan co trong day so: ‘,s);
for i:=1 to n Do
for j:=i to n Do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Day so sap xep theo thu tu tang dan: ‘);
for i:=1 to n Do write(a[i],’ ‘);
readln
end.