Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị lớn nhất

0 bình luận về “Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị lớn nhất”

1. Var a:array [1..100] of longint;

   Max,n,i:longint;

   Begin

   Readln(n);

   For i:=1 to n do

   Readln (A[i]);

   For i:=1 to n do

   Write(A[i]);

   Max :=A[1];

   For i:= 2 to n do

   If max < A[i] then Max := A[i];

   Writeln(‘So lon nhat la’ ,Max);

   Readln

   End.

   Bình luận

2. Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu n= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
   End;
   Writeln;
   Write(‘Cac ptu trong day tren la: ‘);
   For i:= 1 to n do write(a[i]:3);
   max:=a[1];
   Writeln;
   Write(‘Gia tri lon nhat trong day la: ‘);
   For i:= 2 to n do
   Begin
   If max<a[i] then max:=a[i];
   End;
   Write(a[i]:3);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Đa tạ! Đa tạ :33
   *Có gì cần hỏi thì comment bên dưới nhá 😀

   Bình luận