Bài 5: Viết chương trình nhập vào 1 dãysốnguyên n. a. In ra màn hình dãy sau khi nhập b. In ra màn hình GTLN của dãy c. In ra màn hình GTNN của dãy d.

0 bình luận về “Bài 5: Viết chương trình nhập vào 1 dãysốnguyên n. a. In ra màn hình dãy sau khi nhập b. In ra màn hình GTLN của dãy c. In ra màn hình GTNN của dãy d.”

1. program Bai_5;

   uses crt;

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

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

         TBC: real;

   Begin

            clrscr;

            write(‘Nhap do dai day: ‘); readln(n);

            for i:=1 to n do

            begin

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

            end;

            write(‘a) Day sau khi nhap: ‘);

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

            writeln;

            max:=1; min:=1;

            for i:=1 to n do

            begin

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

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

            end;

            writeln(‘b) Gia tri lon nhat: ‘,max);

            writeln(‘c) Gia tri nho nhat: ‘,min);

            for i:=1 to n do

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

            writeln(‘d) Tong cac phan tu chan = ‘,T);

            TBC:=T/n;

            writeln(‘TBC cac phan tu chan = ‘,TBC:2:1);

            readln

   End.

   Bình luận