tạo một mảng gồm các số nguyên, viết chương trình xóa đi phần tử bé nhất

0 bình luận về “tạo một mảng gồm các số nguyên, viết chương trình xóa đi phần tử bé nhất”

1. Program BTT;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,vt,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap so luong phan tu: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;
           min:=A[1]; vt:=1;
           For i:=2 to n do
                   If A[i]<min then
                   Begin
                           min:=A[i];
                           vt:=i;
                   End;

           n:=n-1;
           For i:=vt to n do
                   A[i]:=A[i+1];
           Write(‘Xoa phan tu be nhat: ‘);
           For i:=1 to n do Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var a:array[1..100] of longint;

   i,min,n : integer;

   Begin

   Clrscr;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do 

   Begin

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

   Readln(A[i]);

   End;

   Min:=A[1];

   For i:=1 to n do

   If A[i] <Min then A[i] :=Min;

   Dec(n);

   For i:=1 to n do

   A[i] :=A[i+1] ;

   For i:=1 to n do

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

   Readln

   End.

   Bình luận