Viết chương trình nhập vào điểm trung bình học kỳ 1 của lớp em sử dụng biến mảng tìm ra bạn có điểm trung bình cao nhất và bạn có điểm trung bình thấ

0 bình luận về “Viết chương trình nhập vào điểm trung bình học kỳ 1 của lớp em sử dụng biến mảng tìm ra bạn có điểm trung bình cao nhất và bạn có điểm trung bình thấ”

1. program max_min;

   uses crt;

   var dtb:array[1..100] of real;

         max,min:real;

         n,i:byte;

   begin

            clrscr;

            write(‘Nhap so hoc sinh: ‘);  readln(n);

            write(‘Nhap diem trung binh ban thu 1: ‘);  readln(A[1]);

            max:=A[1];  min:=A[1];

            for i:=2 to n do

                  begin

                      write(‘Nhap diem trung binh ban thu ‘,i,’: ‘);  readln(A[i]);

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

                      if A[i]<min then min:=A[i];

                  end;

            writeln(‘Diem trung binh cao nhat la: ‘,max:2:2);

            writeln(‘Diem trung binh thap nhat la: ‘,min:2:2);

            readln;

   end.

   Bình luận

2. program max_min;

   uses crt;

   var dtb:array[1..100] of real;

         max,min:real;

         n,i:byte;

   begin

            clrscr;

            write(‘Nhap so hoc sinh: ‘);  readln(n);

            write(‘Nhap diem trung binh ban thu 1: ‘);  readln(A[1]);

            max:=A[1];  min:=A[1];

            for i:=2 to n do

                     begin

                            write(‘Nhap diem trung binh ban thu ‘,i,’: ‘);  readln(A[i]);

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

                              if A[i]<min then min:=A[i];

                     end;

            writeln(‘Diem trung binh cao nhat la: ‘,max:2:2);

            writeln(‘Diem trung binh thap nhat la: ‘,min:2:2);

            readln;

   Bình luận