Viết chương trình nhập điểm trung bình môn của các bạn sau đó in ra màn hình môn của bạn cao nhất ( đang cần gấp ạ ) giúp e với chiều nay e ktr rồi

0 bình luận về “Viết chương trình nhập điểm trung bình môn của các bạn sau đó in ra màn hình môn của bạn cao nhất ( đang cần gấp ạ ) giúp e với chiều nay e ktr rồi”

1. uses crt;
   var A:array [1..100] of real;
       n:longint;
       Max,i:real;
   begin
      clrscr;
      write(‘Nhap so ban: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap diem ban thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      Max:=A[1];
      for i:=2 to n do
      if A[i]>Max then Max:=A[i];
      writeln(‘Diem cua ban cao nhat la: ‘,Max:4:2);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of real;
       i,n: longint;
       max: real;
   begin
           clrscr;
           write(‘nhap so ban: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘nhap diem ban thu ‘,i,’: ‘);
                           readln(a[i]);
                   end;
           max:=a[1];
           for i:=2 to n do
                   if a[i]>max then
                           max:=a[i];
           writeln(‘diem cua ban cao nhat: ‘,max:0:1);
           readln;
   end.

   Bình luận