Viết chương trình nhập vào độ dài của 1 dãy số. In ra màn hình số lớn nhất trong dãy số đó

0 bình luận về “Viết chương trình nhập vào độ dài của 1 dãy số. In ra màn hình số lớn nhất trong dãy số đó”

1. program phuongt;

   uses crt;

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

          i, max, n: integer;

   begin

            clrscr;

            write(‘Nhap do dai day so: ‘); readln(n);

            for i:=1 to n do

            begin

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

            end;

            max:=A[1];

            for i:=1 to n do if max<A[i] then max:=A[i];

            write(‘So lon nhat trong day so la: ‘, max);

            readln

   end.

   Bình luận

2. Program So_lon_nhat;

   Uses Crt;

   Var i,n,Max:integer;

   S:longint;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n tu ban phim’);

   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];

   Write(‘so lon nhat la’,Max);

   Readln

   End.

   Bình luận