Giúp với a : Viết chương trình một dãy số A gồm n số nguyên . Tính tổng của dãy số có sử dụng chương trình con .

0 bình luận về “Giúp với a : Viết chương trình một dãy số A gồm n số nguyên . Tính tổng của dãy số có sử dụng chương trình con .”

1. program tinh_tong;

   uses crt;

   type kmang=array[1..1000] of integer;

   var A:kmang;

         n,i:integer;

   {—Chuong-trinh-con—}

   function tong(A:kmang; n:integer):integer;

   var t,j:integer;

   begin

          t:=0;

          for j:=1 to n do

                 t:=t+A[j];

          tong:=t;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

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

          for i:=1 to n do

                 begin

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

                 end;

          write(‘Tong cac phan tu cua mang A la: ‘,tong(A,n));

          readln;

   end.

   Bình luận

2. uses crt;

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

   n,i,t,max:integer;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do

   begin

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

   end

   end;

   max:=a[1];

   for i:=1 to n do

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

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

   t:=0;

   for i:=1 to n do

   t:=t+a[i];

   writeln(‘Tong cua day so la: ‘,t);

   readln;

   Bình luận