VCT nhập 1 dãy số in ra tổng 3 số liên tiếp lớn nhất

0 bình luận về “VCT nhập 1 dãy số in ra tổng 3 số liên tiếp lớn nhất”

1. program phuongt;

   uses crt;

     var A: array[1..500] of longint;

           i, j, n, s, a: integer;

   begin

             clrscr;

             write(‘Nhap n = ‘); readln(n);

             for i:=1 to n do

             begin

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

             end;

             for i:=1 to n-1 do

                  for j:=i+1 to n do if A[i]<A[j] then

                  begin

                                   a:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=a;

                  end;

             s:=A[1]+A[2]+A[3];

             write(‘Tong 3 so lien tiep lon nhat: ‘, s);

             readln

   end.

   Bình luận

2. write(‘nhap do dai cua day so n=’);readln(n);

   writeln(‘nhap cac phan tu cua day so :’);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’);readln(a[i]);

   end;

   max :=a[1] ; min:=a[1];

   for i:=2 to n do

   begin

   if max &lt;a[i] then max :=a[i];

   if min &gt;a[i] then min :=a[i];

   end;writeln(‘so lon nhat la:’,max);

   writeln(‘so be nhat la:’,min);
   readln

   end.

   Bình luận