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

   clsrcr;

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

   readln(A[i]);

   Max := 0;

   for i :=1 to N do

   A[i] :=Max;

   if A[i] >A[i+1] then A[i+1] := Max;

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

   readln

   end.

   Bình luận