Nhập một mảng số thực gồm N số ( N ≤ 100) từ bàn phím.Tính tổng và in mảng ra màn hình

0 bình luận về “Nhập một mảng số thực gồm N số ( N ≤ 100) từ bàn phím.Tính tổng và in mảng ra màn hình”

1. program mangthuc;

   Uses crt;

   var A:array[1..100] of real;

         n,i:byte;

         t:real;

   begin

   clrscr;

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

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   T:=0;

   for i:=1 to n do

    begin

     write(‘Phan tu thu ‘,i,’: ‘);

     readln(A[i]);

     t:=t+A[i];

    end;

   writeln(‘Mang do la: ‘);

   for i:=1 to n do

    write(A[i]:5:2);   

   writeln;

   write(‘Tong cua chung la: ‘,t:2:2);

   readln

   end.

   Bình luận

2. uses crt;
   var n,i:byte;
   a:array[1..100] of real;
       s:real;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           s:=0;
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]=’);
                   readln(a[i]);
                   s:=s+a[i];
           end;
           write(‘Tong la:’,s:0:3);
           readln
   END.

   Chúc bạn học tốt.

   Cho mình xin câu trả lời hay nhất.

   Bình luận