Question

Viet chuong trinh nhap vao 1 mảng gom n phần tử số thực

a) in mảg vua nhập

b) tìm giá trị nhỏ nhất của mảng

c) sap xep mảg tăng dần

Answer 1

chương trình sẽ là:

var i,n,j,tang,min:integer;

A:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do readln(A[i]);

writeln('mang vua nhap');

for i:=1 to n do writeln(A[i]:3);

min:=A[i];

for i:=2 to n do

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

writeln('gia tri nho nhat la ' , min);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

tang:=A[i];

A[i]:=A[j];

A[j]:=tang;

end;

writeln('day so sau khi sap xep tang dan');

for i:=1 to n do writeln(A[i]:3);

end.