viết chương trình nhập vào 1 mảng gồm 5 phần tử và in ra màn hình giá trị lớn nhì

0 bình luận về “viết chương trình nhập vào 1 mảng gồm 5 phần tử và in ra màn hình giá trị lớn nhì”

1. uses crt;
   var i,maxValue,max:longint;
       a:array[1..5]of longint;
   begin
   clrscr;
       for i:=1 to 5 do readln(a[i]);
       maxValue:=a[1]; max:=a[1];
       for i:=2 to 5 do
           if a[i]>maxValue then maxValue:=a[i];
       for i:=2 to 5 do
           begin
               if (a[i]>max) and (max<maxValue) and (a[i]<maxValue) then
                   max:=a[i];
           end;
       writeln(max);
   readln;
   end.

   Bình luận

2. 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.

   hai cái end. đó ko có lỗi gì đâu nha

   

   Bình luận