Hãy nhập 1 mảng gồm n số thực (n được nhập từ bàn phím) a) Tính tổng các phần tử có trong mảng b) Tính TNC các phần tử có trong mảng c) Tìm phần tử lớ

0 bình luận về “Hãy nhập 1 mảng gồm n số thực (n được nhập từ bàn phím) a) Tính tổng các phần tử có trong mảng b) Tính TNC các phần tử có trong mảng c) Tìm phần tử lớ”

1. program Mang_tong_hop;

   uses crt;

   var A:array [1..500] of integer;

         n,i,T,max,min,j,tg,d: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            max:=1; min:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     T:=T+A[i];

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

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

                     if A[i] mod 2=0 then d:=d+1;

            end;

            writeln(‘a) Tong cac phan tu trong mang = ‘,T);

            writeln(‘b) TBC cac phan tu trong mang = ‘,T/n:2:1);

            writeln(‘c) Phan tu lon nhat: ‘,max);

            writeln(‘d) Phan tu nho nhat: ‘,min);

            for i:=1 to n -1 do

                 for j:= i+1 to n do

                      if A[i]>A[j] then

                      begin

                               tg:=A[i];

                               A[i]:=A[j];

                               A[j]:=tg;

                      end;

            write(‘e) Mang sau khi sap xep tang dan: ‘);

            for i:=1 to n do write(A[i],’  ‘);

            writeln;

            write(‘f) Co ‘,d,’ phan tu chan trong mang’);

            readln

   End.

   Bình luận

2. a) Tổng các ptu trong mảng:
   Uses Crt;
   Var a:array[1..1000] of integer;;
   i,n,S:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   For i:= 1 to n do  S:=S+a[i];
   End;
   Writeln(‘ Tong cua cac ptu tren day so la: ‘,S);
   Readln
   End.
   b) TBC của các phần tử trong mảng:
   Uses Crt;
   Var a:array[1..1000] of real;
   i,n,dem,S:integer; TBC:real;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   For i:= 1 to n do
   Begin
   dem:=dem+1;
   S:=S+a[i];
   End;
   TBC:=S/dem;
   Writeln(‘ TBC cua cac ptu tren day so la: ‘,TBC);
   Readln
   End.
   c) Tìm ptu lớn nhất trong mảng: 
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   max:=a[1];
   For i:= 2 to n do If max>a[i] then max:=a[i];
   Writeln(‘ So lon nhat trong day tren la: ‘,max);
   Readln
   End.

   d) Tìm ptu nhỏ nhất trong mảng: 
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,min:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   min:=a[1];
   For i:= 2 to n do If min>a[i] then min:=a[i];
   Writeln(‘ So nho nhat trong day tren la: ‘,min);
   Readln
   End.

   e) Sắp xếp các ptu trong mảng theo thứ tự tăng dần:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,j,tg:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   For i:=1 to n-1 do
   For j:=i+1 to n do
   If A[i]>A[j] then
   Begin
   tg:=A[i];
   A[i]:=A[j];
   A[j]:=tg;
   End;
   Writeln;
   Writeln(‘ Day so sau khi sap xep theo thu tu tang dan la: ‘);
   For i:= 1 to n do Write(a[i]:5);
   Readln
   End.
   f) Đếm các phần tử chẵn trong mảng:
   TBC của các phần tử trong mảng:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,dem:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu a[‘,i,’]: ‘); Readln(a[i]);
   End;
   For i:= 1 to n do If a[i] mod 2 = 0 then dem:=dem+1;
   Writeln(‘ Co ‘,dem,’ so chan trong day so tren’);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thank kiu C:

   Bình luận