Nhập vào một dãy n số nguyên A[1],A[2],…,A[n]. In ra màn hình các thông tin sau: Nhập vào số hạng dương nhỏ nhất của dãy và chỉ số của nó. +Dùng mả

0 bình luận về “Nhập vào một dãy n số nguyên A[1],A[2],…,A[n]. In ra màn hình các thông tin sau: Nhập vào số hạng dương nhỏ nhất của dãy và chỉ số của nó. +Dùng mả”

1. Program Taylor;
   uses crt;
   var n,i,vt:longint; a:array[0..100000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n); a[vt]:=high(longint);
      For i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if (a[i] mod 2=0)and(a[i]<a[vt]) then vt:=i;
         end;
      if vt=0 then write(‘Khong co so hang duong nao trong day.’) else write(‘So hang duong nho nhat tong day: ‘,a[vt],’, Chi so cua no: ‘,vt);
   readln
   end.

   Test:

   

   Trả lời

2. uses crt;

   var a:array[1..100000] of longint;

         i,n,min,k: longint;

   begin

   clrscr;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do 

      begin

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

      end;

   Min:=A[1]; k:=1;

   For i:=1 to n do if (A[i]<min) and (A[i]>0) then

        Begin 

            k:=i;

            min:=A[i];

        end;

   Writeln(‘So hang duong NN la: ‘,min,’ va chi so cua no la: ‘,k);

   readln

   end.

   Trả lời