Viết chương trình nhập vào điểm của lớp 11A1, xuất ra mảng điểm học sinh cao và thấp nhất lớp. Ừm, lớp 11A1 có 37 học sinh nha.

0 bình luận về “Viết chương trình nhập vào điểm của lớp 11A1, xuất ra mảng điểm học sinh cao và thấp nhất lớp. Ừm, lớp 11A1 có 37 học sinh nha.”

1. uses crt;
   var i:integer;
       max,min:real;
       A:array [1..37] of real;
   begin
      clrscr;
      for i:=1 to 37 do 
      begin
         write(‘Nhap diem cua hoc sinh thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      max:=A[1]; min:=A[1];
      for i:=2 to 37 do
      begin
         if A[i]>max then max:=A[i];
         if A[i]<min then min:=A[i];
      end;
      writeln(‘ ‘);
      writeln(‘Hoc sinh diem cao nhat lop la: ‘,max:4:2);
      writeln(‘Hoc sinh diem thap nhat lop la: ‘,min:4:2);
      readln
   end.

   😀 

   Bình luận

2. var i: longint;
         max,min: real;
         a: array [1..37] of real;
   begin

   clrscr;

   max:=0;

   min:=101;

   for i:=1 to 37 do

   begin
   write(‘Nhap diem cua hoc sinh thu ‘,i);
   read(A[i]);

   end;
   for i:=1 to 37 do
   begin

   if A[i]>max then max:=A[i];
   if A[i]<min then min:=A[i];
   end;
   writeln;
   writeln(‘Hoc sinh diem cao nhat lop la: ‘,max:0:4);

   writeln(‘Hoc sinh diem thap nhat lop la: ‘,min:0:4);
   readln;
   end.

   Bình luận