Giải BT pascal cần trước 9h tối nay@@

[vanhelsingbt]

Nhập từ bàn phím n số phân tử. Xuất ra màn hình
1.Các phân tử của mảng
2.Sắp xếp mảng theo thứ tự tăng dần
3.Tìm ra các số nguyên tố, ko phải là số nguyên tố trong mảng
4.Xuất số nguyên tố nhỏ nhất và lớn nhất
Các bác giải giúp dùm em câu 3 câu 4 bí òi =.=

[=========> Bổ sung bài viết <=========]

program sapxep;
uses crt;
Type mang=array[1..10] of integer;
var a:mang;j,i,t:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write ('nhap phan tu thu',i,'la: ');
readln (a[i]);
end;
writeln;
writeln('cac phan tu cua mang');
for i:=1 to 10 do
write (a[i],' ');
readln;

for i:=1 to 10 do
begin
for j:=i to 10 do
begin if a[i]>a[j] then
begin
t:=a[j];
a[j]:=a[i];
a[i]:=t;
end;
end;
end;
writeln;
write('sap xep cac phan tu cua mang');
writeln;
for i:=1 to 10 do
write(a[i],' ');
readln;
câu 3 câu 4 giải sao trời

end.

[JackDaiHiep]

Buồn cười quá, ai vào giúp người ta đi :D

[nguyenthong1593]

cái này tớ sẽ sử dụng một hàm kiểm tra số nguyên tố rồi gom tất cả các số nguyên tốt vào một mảng mới! sau đó tim max trong mảng mới đó! hjhjhj

n:=2;dem:= 0;
repeat
i:=2;
while n mod i<>0 do inc(i);
if n=i then
begin
write(n:5);
inc(dem);
end;
inc(n);
until dem >=so;
cái này là tìm số nguyên tốt đó! chắc bạn cũng đã biết làm sao để đưa các số nguyên tố này vào một mảng mới rồi phải không! và thuật toán tim max min thì trong sách giáo khoa có đó! hjhj
Chúc bạn thành côn nghen!
(_DongHwa_)