tính khoe học giỏi văn à xàm vãi

:v đề câu 1 phải là tìm gtnn trong mảng số nhập vào từ bàn phím hoặc j đó chớ ai tìm được gtnn trong dãy số nguyên

đù hót gơn :V

:v đăng xuất nó ra rồi đk cái ms

ở chỗ vòng for cuối cùng ấy bạn:

khi viết

writeln(a[i]:4 ) nhes

mình làm trên free pascal nhé bạn

Uses crt;

Var tam,n,i,b,c:integer;

a ARRAY [1..100] of integer;

Begin

CLRSCR;

Writeln('Moi nhap do dai cua mang'); Readln(n);

For i:=1 to n do

Begin

Writeln('a[',i,']');

Readln(a[i]);

End;

tam:=a[i];

Min:=a[1];

For i:=1 to n do

For c:=i+1 to n do

If a[c]<a[i] then

Begin

tam:=a[i];

a[i]:=a[c];

a[c]:=tam;

End;

For i:=1 to n do

Writeln(a[i]);

Readln;

End.

bạn kiểm tra lại xem còn sót biến nào ko bổ sung nhé :)

còn câu 3 thì mình chưa nghĩ ra