VCT nhập mảng số nguyên n. In dãy vừa nhập. Tìm và in ra số lớn nhất của dãy.

0 bình luận về “VCT nhập mảng số nguyên n. In dãy vừa nhập. Tìm và in ra số lớn nhất của dãy.”

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. Uses crt;
   Var a:array[1..100] of integer;
   i,n,max : integer;
   Begin
   Clrscr ;
   Write(‘Nhap so pt n vao: ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap a[‘,i,’]=’); Readln(A[i]);
   End;
   Max:=A[1];
   For i:= 2 to n do If a[i] > max then max:=a[i];
   Writeln(‘So lon nhat trong day so do la:’,max);
   Readln
   End.
   *Nhớ tick và chọn làm ctr/l hay nhất giúp mình với nhé! Thanks 😀

   Bình luận