viết chương trình nhập vào 1 mảng có 5 phần tử. Tìm và in ra số lớn nhì

0 bình luận về “viết chương trình nhập vào 1 mảng có 5 phần tử. Tìm và in ra số lớn nhì”

1. uses crt;
   var ln, lnh, lb: integer;
   var a:array[1..5] of integer;
   function max(x, y: integer): integer;
   begin
   if x>=y then
   max:=x
   else
   max:=y;
   end;
   begin
   clrscr;
   textcolor (white);
   write (‘Nhap gia tri cua cac phan tu: ‘); read (a[1], a[2], a[3], a[4], a[5]);
   ln:=max(max(max(max(a[1], a[2]), a[3]), a[4]), a[5]);
   if ln=a[1] then
   begin
   lnh:=max(max(max(a[2], a[3]), a[4]), a[5]);
   writeln (‘gia tri lon nhi la: ‘,lnh);
   end;
   if ln=a[2] then
   begin
   lnh:=max(max(max(a[1], a[3]), a[4]), a[5]);
   writeln (‘gia tri lon nhi la: ‘,lnh);
   end;
   if ln=a[3] then
   begin
   lnh:=max(max(max(a[1], a[2]), a[4]), a[5]);
   writeln (‘gia tri lon nhi la: ‘,lnh);
   end;
   if ln=a[4] then
   begin
   lnh:=max(max(max(a[1], a[2]), a[3]), a[5]);
   writeln (‘gia tri lon nhi la: ‘,lnh);
   end;
   if ln=a[5] then
   begin
   lnh:=max(max(max(a[1], a[2]), a[3]), a[4]);
   writeln (‘gia tri lon nhi la: ‘,lnh);
   end;
   readln;
   readln;
   end.
   end.

   HỌC TỐT !!!

   

   Bình luận

2. Program So_lon_nhi;

   Var n,i,so, nhi,max,nam:integer; Procedure swap(var x,y:real);

   var nam:real;

   begin

   nam:=x;

   x:=y;

   y:=nam;

   end;

   Begin

   Write(‘Nhap n: ‘);Readln(n);

   Write(‘nhap so:’);Readln(max);

   Write(‘nhap so: ‘);Readln(nhi);

   if nhi > Max then swap(Max,nhi)

   For i:= 5 to n do

   Begin

   Write(‘Nhap so: ‘);Readln(so);

   if (so>nhi) and (so<max) then

   nhi:=so; if so>max then

   Begin

   nhi:=max;

   Max:=so;

   End;

   End;

   Write(‘So thu nhi la: ‘,nhi);

   Readln

   End.

   Bình luận