Viết chương trình tìm số lớn nhất trong mảng Mảng gồm 5 số

0 bình luận về “Viết chương trình tìm số lớn nhất trong mảng Mảng gồm 5 số”

1. uses crt;
   var A:array[1..5] of integer;
       i:byte; max:integer;
   begin
      clrscr;
      for i:=1 to 5 do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      max:=A[1];
      for i:=2 to 5 do
      if A[i]>max then max:=A[i];
      write(‘Max la: ‘,max);
      readln
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var A: array[1..5] of longint;
       i,max: longint;
   Begin
           Clrscr;
           For i:=1 to 5 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           max:=A[1];
           For i:=2 to 5 do If A[i]>max then max:=A[i];
           Write(max);
           Readln
   End.

   Bình luận