cho N và dãy a1…an.viết chương trình để tìm ra gtri lớn nhất của dãy

0 bình luận về “cho N và dãy a1…an.viết chương trình để tìm ra gtri lớn nhất của dãy”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do Read(A[i]);
           max:=A[1];
           For i:=2 to n do
                   If A[i]>max then max:=a[i];
           Write(‘Max = ‘,max);
           Readln
   End.

   Bình luận

2. cho N và dãy a1…an.viết chương trình để tìm ra giá trị lớn nhất của dãy:

   Uses crt;

   var a:array[1..10000] of longint;

   max,n,i:longint;

   begin

   clrscr;

   write(‘N=’);readln(n);

   for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); end;

   max:=a[1];

   for i:=2 to n do

   if max<a[i] then max:=a[i];

   writi(max);

   readln

   end.

   Bình luận