cho mình hỏi :viết phương trình:nhập số cân nặng của N học sinh nhập từ bàn phím thông báo là số cân nặng lớn nhất của học sinh đó , xin hãy giúp mìn

0 bình luận về “cho mình hỏi :viết phương trình:nhập số cân nặng của N học sinh nhập từ bàn phím thông báo là số cân nặng lớn nhất của học sinh đó , xin hãy giúp mìn”

1. uses crt;
   var  a : array[1..100] of real;
   n,i  : integer;
   max : real;
   begin clrscr;
   write(‘Nhap 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 if a[i] > max then max:=a[i];
   writeln(‘So cang nang nhat cua hoc sinh trong lop la :’,max);
   readln
   end.

   Bình luận

2. Uses crt;
   Var a:array[0..1000000] of int64;
           i:longint;n,max:int64;
   Begin
         clrscr;
         max:=low(longint);
    Readln(n);
    For i:=1 to n do
     Begin
      Read(a[i]);
      If a[i]>max then max:=a[i];
     End;
     Write(max);
   End.

   Bình luận