Làm hộ cho em, em vote hết 5 sao ạ 1. Viết chương trình nhập vào số tự nhiên N và dãy A gồm N số nguyên. Sau đó in ra giá trị nhỏ nhất của dãy A. Ví dụ: Nhập N= 5 và A=( 8,-2, 18, 45,0) In ra giá trị nhỏ nhất là: -2 2. Viết chương trình nhập vào số tự nhiên N và dãy A gồm N số nguyên. Sau đó sắp xếp dãy A theo thứ tự sao cho số lẻ đứng trước, số chẵn đứng sau. Ví dụ: Nhập N= 5 và A=( 8,2, 17, 45,0) Kết quả in ra màn hình là: 17 45 8 0 2

1/

uses crt;
var A:array[1..1000] of integer;
    N,i,min:integer;
begin
   clrscr;
   write('Nhap N:  '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   min:=A[1];
   for i:=2 to N do
   if A[i]<min then min:=A[i];
   write('Min = ',min);
   readln
end.

2/ 

uses crt;
var A:array[1..1000] of integer;
    chan:array[1..1000] of integer;
    le:array[1..1000] of integer;
    N,i,min,c,l:integer;
begin
   clrscr;
   write('Nhap N:  '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to n do
   if A[i] mod 2 = 0 then
   begin
      inc(c);
      chan[c]:=A[i];
   end
   else
   begin
      inc(l);
      le[l]:=A[i];
   end;
   writeln;
   for i:=1 to l do write(le[i]:4);
   for i:=1 to c do write(chan[i]:4);
   readln
end.

program ct;

uses crt;

var A:array[1..100] of integer;

      i,N,min:integer;

begin clrscr;

   write('Nhap so N: '); readln(N);

   for i:=1 to N do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     min:=A[1];

   for i:=1 to N do

     if A[i] <min then min:=A[i];

   writeln('So nho nhat la: ',min);

readln;

end.

Học tốt!