Viết chương trình kiểu mảng : nhập N và dãy N số nguyên ( N<=200), tìm số có giá trị lớn thứ hai dãy số

0 bình luận về “Viết chương trình kiểu mảng : nhập N và dãy N số nguyên ( N<=200), tìm số có giá trị lớn thứ hai dãy số”

1. Uses crt;

   var i,max: longint;

         vtmax:  byte;

         a: array[1..200] of longint;

   begin

   clrscr;

   write(‘nhap N: ‘);  readln(n);

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

   for i:=1 to  n do 

    if i=1 then max:=a[i] 

     else if max<a[i] then 

       begin 

         max:=a[i];  vtmax:=i;

       End;

   a[vtmax]:=low(longint); 

   for i:=1 to n do 

     if i=1 then max:=a[i] 

       else if max<a[i] then max:=a[i];

   writeln;

   write(max);

   readln;

   end.

   cách làm: tìm số lớn nhất trong dãy ròi biến số đó thành số bé nhất, ròi tìm số lớn nhất lần 2

   Bình luận

2. program tfkgujhkjg;

   uses crt;

   var i, b, n: integer

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

   begin clrscr;

   write(‘co bao nhieu so ma ban muon nhap: ‘); readln(n);

   for i: 1 to n do

   begin

   write(‘ nhap so thu’, i); readln( a[i] );

   end;

   b:= a[1]

   for i: 1 to n do

   begin

   if b < a[i] then b:=a( [i] ) ;

   end;

   write(‘so lon nhat la:’, b);

   end;

   Bình luận