Viết ct tìm giá trị lớn nhất và sử dụng biến mảng với dãy số: 9, 6, 10, 20, 15

0 bình luận về “Viết ct tìm giá trị lớn nhất và sử dụng biến mảng với dãy số: 9, 6, 10, 20, 15”

1. 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;
   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.
   * 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

2. uses crt;

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

   i,n,max: integer;

   begin

   clrscr;

   a[1]:=9;

   a[2]:=6;

   a[3]:=10;

   a[4]:=20;

   a[5]:=15;

   for i:=1 to 5 do if a[i]>max then max:=a[i];

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

   readln;

   end.

   Bình luận