viết chương trình 1 dãy n số . tìm ra số nhỏ nhất trong dãy vừa nhập

0 bình luận về “viết chương trình 1 dãy n số . tìm ra số nhỏ nhất trong dãy vừa nhập”

1. Program Hotboy ;

   Uses crt;

   Var i,n,MMin:integer;

   S:longint;

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

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n tu ban phim’);

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘A[‘,i,’]’);

   Readln(A[i]);

   End;

       Min:=A[1];

   For i:=2 to n do

      

             if Min>A[i] then Min:=A[i];

      

   Write(‘so nho nhat la’,Min);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var i,n,min:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

   end;

   min:=a[1];

   for i:=2 to n do

   if min>a[i] then min:=a[i];

   writeln(‘gia tri nho nha’,min);

   readln

   end.

   Bình luận