Viết chương trình nhập vào n số nguyên. Tìm số lớn nhất trong các số đó và in kết quả ra màn hình.

0 bình luận về “Viết chương trình nhập vào n số nguyên. Tìm số lớn nhất trong các số đó và in kết quả ra màn hình.”

1. Program Hotboy;

   Uses crt;

   Var A:array[1..100] of integer;

   I,n,max : longint;

   Begin

   Clrscr ;

   Write(‘nhap so 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 A[i] > max then max:=A[i] ; 

   Writeln(‘phan tu lon nhat bang ‘,max,’ trong mang’); 

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
        i,n,max:integer;
   begin
   clrscr;
   write(‘nhap so phan tu cua mang: ‘); 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];
   writeln(‘phan tu lon nhat cua mang: ‘,max);
   readln;

   Bình luận