Tin học Viết thuật toán

Lâm Là Ly said:

viết thuật toán tìm giá trị nhỏ nhất và xác định tính dừng, tính đúng đắn của thuật toán

Bấm để xem đầy đủ nội dung ...

Program So_nho_nhat;
Var : i,n:Byte;
so,Min:Integer;
Begin
Writeln('TIM SO NHO NHAT TRONG N SO NGUYEN');
Writeln('---------------------------------');
Write('Cho biet so phan tu nhap N= ');
Readln(n);
i:=1;
Write('So thu ',i,' = ');
Readln(so);
Min:=so; {Giả sử A1 là số nhỏ nhất}
For i:=2 To N Do
Begin
Write('So thu ',i,' = ');
Readln(so);
If Min < so Then
Min:=so;
End;
Writeln;
Writeln('+So nho nhat trong ',n,' so vua nhap la so: ',Min);
Writeln(' Bam phim de ket thuc');
Readln
End.