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
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!
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.