Viết chương trình liệt kê các giá trị lớn nhất trong mảng 1 chiều ?

0 bình luận về “Viết chương trình liệt kê các giá trị lớn nhất trong mảng 1 chiều ?”

1. Program Kookie;

   uses crt;

   type ArrInt = array[ 1 .. N] of integer;

   var

   A: ArrInt;

   N, i, max :integer;

   begin

   clrscr;

   writeln( ‘ A [‘,i,’] = ‘);

   readln(A[i]);

   A[i] := Max;

   for i:= 1 to N do

   if A[i] < A[i+1] then

   Max := A[i+1];

   writeln(‘ gia tri lon nhat la : , ‘ Max);

   readln

   end . 

   < mong giúp đc bạn>

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap so luong phan tu: ‘); Readln(n);
           Max:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   If A[i]>max then max:=A[i];
           End;

           Write(‘GTLN la: ‘,max);
           Readln
   End.

   Bình luận