viết giùm mình đoạn chương trình tin học 8 sgk phần 3 trang 75

0 bình luận về “viết giùm mình đoạn chương trình tin học 8 sgk phần 3 trang 75”

1. Uses crt;
   Var i,n,max,min:Integer;
   S:real;
   a:array [1..100] of Integer ;
   Begin
   Readln(n); S:=0;
   For i:=1 to n do
   Readln(a[i]);
   max:=a[1];
   min:=a[1];
   For i:=1 to n do
   begin
   If a[i]>max then max:=a[i];
   If a[i]<min then min:=a[i];
   end;
   For i:=1 to n do
   S:=S+a[i];
   S:=S/n;
   Writeln(‘So lon nhat la : ‘,max,‘ hon gia tri tb la’,max–S:5:0);
   Writeln(‘So nho nhat la : ‘,min,‘ kem gia tri tb la’,S–min:5:0);
   End.

   Bình luận