số nguyên N (N<250) và dãy số nguyên A1,A2,...,An mỗi số không vượt quá 500. tìm chỉ số và giá trị của phần tử nhỏ nhất trong dãy

0 bình luận về “số nguyên N (N<250) và dãy số nguyên A1,A2,...,An mỗi số không vượt quá 500. tìm chỉ số và giá trị của phần tử nhỏ nhất trong dãy”

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

           max:=A[1];
           For i:=2 to n do
                   If A[i]<min then
                           min:=A[i];
           Writeln(‘GTNN: ‘,min);
           For i:=1 to n do
                   If A[i]=min then Writeln(‘Vi tri ‘,i);
           Readln
   End.

   Bình luận

2. Đây nha bạn

   program nhonhat;
   uses crt;
   var n,i,chiso:integer;
       Min:longint;
       A:array[1..500] of integer;
   begin
    clrscr;  Min:=Maxlongint;
    readln(n);
    For i:=1 to n do read(A[i]);
    For i:=1 to n do if A[i]<=Min then
     begin
      Min:=A[i];
      chiso:=i;
     end;
     writeln(‘So nho nhat: ‘,Min);
     writeln(‘vi tri: ‘,chiso);
     readln;
     readln;
   end.

   Bình luận