1.viết chương trình nhập vào một dãy n số nguyên từ bàn phím
a) tính tổng các số nguyên đó
b)sắp xếp các số nguyên đó theo thứ tự tăng dần
c)tìm giá trị lớn nhất ,giá trị nhỏ nhất của dãy
d)in ra các số chia hết cho 2
e)in ra các số nguyên lớn thứ 2 của dãy
giải giúp mik vs
uses crt;
var a:array[1..100] of integer;
n,i,j,s,sl,sc,sa,tam: integer;
begin
clrscr;
writeln(‘Nhap N: ‘); readln (n);
for i:= 1 to n do
begin writeln(‘nhap a[‘,i,’] = ‘); readln (a[i]) end;
s:=0;
for i:= 1 to n do s:=s+a[i];
write(‘Tong cac so cua day la ‘,s);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i] := a[j]; a[j]:=tam end;
writeln(‘Day so sau khi sap xep la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln(‘So phan tu cua day la: ‘,n);
for i:= 1 to n do
if A[i] mod 2 <> 0 then sl:=sl+1;
writeln(‘So so le cua day la: ‘, sl);
for i:= 1 to n do
if A[i] mod 2 = 0 then sc:=sc+1;
writeln(‘So so chan cua day la: ‘,sc);
for:=1 to n do
if A[i] < 0 then sa:=sa+1;
writeln(‘So so am trong day la: ‘, sa);
readln;
end.
program dghf;
uses crt;
var n,i,j: integer;
M:array[1..100] of integer;
tong, sle, sch, sam, tam: real;
begin
clrscr;
writeln(‘Nhap do dai mang, N = ‘); read(n);
writeln(‘Nhap cac phan tu cua day: ‘);
for i:= 1 to n do
begin writeln(‘M[‘,i,’] = ‘); read(M[i]) end;
{cau a};
tong:=0;
for i:= 1 to n do tong:=tong+M[i];
write(‘Tong cac so cua day la ‘,tong);
{cau b};
for i:=1 to n-1 do
for j:=i+1 to n do
if M[i] > M[j] then
begin
tam:=M[i]; M[i] := M[j]; M[j]:=tam end;
writeln(‘Day so sau khi sap xep la: ‘);
for i:=1 to n do write(M[i]);
{cau c};
writeln(‘So phan tu cua day la: ‘,n);
{cau d};
for i:= 1 to n do
if A[i] mod 2 <> 0 then sle:=sle+1;
writeln(‘So so le cua day la: ‘, sle);
{cau e};
for i:= 1 to n do
if A[i] mod 2 = 0 then sch:=sch+1;
writeln(‘So so chan cua day la: ‘,sch);
{cau f};
for:=1 to n do
if A[i] < 0 then sam:=sam+1;
writeln(‘So so am trong day la: ‘, sam);
readln
end.