viết chương trình nhập vào dãy n số nguyên, xuất dãy số vừa nhập ra màn hình.tìm min, max, tổng, trung bình cộng của các giá trị của dãy số đó

0 bình luận về “viết chương trình nhập vào dãy n số nguyên, xuất dãy số vừa nhập ra màn hình.tìm min, max, tổng, trung bình cộng của các giá trị của dãy số đó”

1. uses crt;

   var a: array[1..100] of integer;

   i,n,min,max,t: integer;

   tbc: real;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n):

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

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

   s:=s+a[i];

   end;

   min:=a[1];

   for i:=2 to n do

   if min>a[i] then min:=a[i];

   tbc:=s/n;

   writeln (‘tong la: ‘,s):

   writeln (‘trung binh cong: ‘,tbc:1:2):

   writeln (‘GTLN (max): ‘,max):

   writeln (‘GTNN (min): ‘,min);

   readln;

   end.

   Bình luận

2. uses crt;
   var a:array[1..1000] of integer;
   i,n,min,max,t:integer;
   tbc:real;
   begin
       clrscr;
       write(‘Nhap n= ‘);readln(n);
       writeln(‘Nhap day so: ‘);
       for i:=1 to n do
          begin
              write(‘a[‘,i,’]= ‘);readln(a[i]);
          end;
       min:=a[1];max:=a[1];t:=a[1];
       for i:=2 to n do
          begin
              if a[i]>max then max:=a[i];
              if a[i]<min then min:=a[i];
              t:=t+a[i];
          end;
       tbc:=t/n;
       writeln(‘So nho nhat: ‘,min);
       writeln(‘So lon nhat: ‘,max);
       writeln(‘Tong: ‘,t);
       writeln(‘Trung binh cong: ‘,tbc:0:3);
   readln;
   end.

      `X“i“n` `Ctlhn` `:D`

   Bình luận