PASCAL 1.Nhập một mảng gồm n số nguyên, xuất ra số nhỏ nhất và vị trí của số đó trong mảng trên 2. Nhập một mảng gồm n số nguyên, xuất ra số hạng âm l

0 bình luận về “PASCAL 1.Nhập một mảng gồm n số nguyên, xuất ra số nhỏ nhất và vị trí của số đó trong mảng trên 2. Nhập một mảng gồm n số nguyên, xuất ra số hạng âm l”

1. Bài 1:

   Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,min,vtmin: 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]; vtmin:=1;
          
           For i:=1 to n do
                   If A[i]>min then
                   Begin
                           min:=A[i];
                           vtmin:=i;
                   End;

           Writeln(‘Min: A[‘,vtmin,’] = ‘,min);
           Readln
   End.

   Bài 2:

   Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,max,vtmax: 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]; vtmax:=1;
          
           For i:=1 to n do
                   If (A[i]>max) and (A[i]<0) then
                   Begin
                           max:=A[i];
                           vtmax:=i;
                   End;

           Writeln(‘Max: A[‘,vtmax,’] = ‘,max);
           Readln
   End.

   Bài 3:

   Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,min,vtmin: 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]; vtmin:=1;

           For i:=1 to n do
                   If (A[i]<min) and (A[i]>0) then
                   Begin
                           min:=A[i];
                           vtmin:=i;
                   End;
           Write(‘Min: A[‘,vtmin,’] = ‘,min);

           Readln
   End.

   Bình luận

2. 1.

   program Tin_hoc;

   uses crt;

   var i,n,min,k:integer;

   a: array [1..10000000] of integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   writeln(‘Nhap ‘,n,’ so nguyen duong:’);

   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 then begin min:= a[i]; k:=i end;

   write(‘So nho nhat la ‘,min,’ va o vi tri thu ‘,k);

   readln;

   end.

   Bài 2:

   program t;

   uses crt;

   var i,n,max,k:integer;

   a: array [1..10000000] of integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   writeln(‘Nhap ‘,n,’ so nguyen:’);

   for i:= 1 to n do readln(a[i]);

   k:=0;

   for i:= 1 to n do if a[i]<0 then begin k:=i; max:=a[i] end;

   for i:= 1 to n do if (a[i]<0) and (a[i]>max) then begin k:=i; max:=a[i] end;

   if k=0 then writeln(‘Khong co so hang am’) else

   writeln(‘So hang am lon nhat la ‘,max,’ va chi so cua no la ‘,k);

   readln;

   end.

   Bài 3:

   program t;

   uses crt;

   var i,n,min,k:integer;

   a: array [1..10000000] of integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   writeln(‘Nhap ‘,n,’ so nguyen:’);

   for i:= 1 to n do readln(a[i]);

   k:=0;

   for i:= 1 to n do if a[i]>=0 then begin k:=i; min:=a[i] end;

   for i:= 1 to n do if (a[i]>=0) and (a[i]<min) then begin k:=i; min:=a[i] end;

   If k=0 then writeln(‘Khong co so hang duong’) else

   writeln(‘So hang duong lon nhat la ‘,min,’ va chi so cua no la ‘,k);

   readln;

   end.

   Bình luận