Viết chương trình nhập mảng 1 chiều M phần tử Thực tìm giá trị min của mảng vừa nhập

0 bình luận về “Viết chương trình nhập mảng 1 chiều M phần tử Thực tìm giá trị min của mảng vừa nhập”

1. Program Tim_min;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,m,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           For i:=1 to m do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           min:=A[1];
           For i:=2 to m do
                   If A[i]<min then min:=A[i];
           Write(‘So be nhat trong mang la: ‘,min);
           Readln

   Bình luận

2. Program Tim_min;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,m,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           For i:=1 to m do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           min:=A[1];
           For i:=2 to m do
                   If A[i]<min then min:=A[i];
           Write(‘So be nhat trong mang la: ‘,min);
           Readln
   End.

   Bình luận