Tìm số nguyên lớn nhất trong các dãy số sau có sử dụng biến mảng Dãy 1: 5, 2, 8, 9, 1 Dãy 2: 9, 6, 10, 20, 15 Dãy 3: 3, 6, 8, 5

0 bình luận về “Tìm số nguyên lớn nhất trong các dãy số sau có sử dụng biến mảng Dãy 1: 5, 2, 8, 9, 1 Dãy 2: 9, 6, 10, 20, 15 Dãy 3: 3, 6, 8, 5”

1. uses crt;

   var a: array[1..100] of integer;

   i,n,max: integer;

   begin

   clrscr;

   write (‘nhap so phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

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

   end;

   writeln (‘so lon nhat: ‘,max);

   readln;

   end.

   Bình luận

2. Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   For i:= 1 to n do
   Begin
   Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
   End;
   {c1}Max:= a[1];
   For i:= 2 to n do
   Begin
   If max<a[i] then max:= a[i];
   End;
   Write(‘ Vay ptu lon nhat trong day do la: ‘,max);
   Readln
   End.
   ————————-Đây là cách 2, bạn có thể đổi c2 vào  c1——————–
   {C2} If max< a[i] then max:=a[i];
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé!Thanks 😀

   Bình luận