Nhập vào 1 dãy n số nguyên A[1],A[2],…,A[n]. Đọc ra màn hình các thông tin sau: 1. Tổng số các phần tử của dãy

0 bình luận về “Nhập vào 1 dãy n số nguyên A[1],A[2],…,A[n]. Đọc ra màn hình các thông tin sau: 1. Tổng số các phần tử của dãy”

1. Program BTT;
   Uses crt;
   Var A: array[1..100] of longint;
       n,i,d: longint;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   d:=d+A[i];
           End;
           Write(‘Tong la: ‘,d);
           Readln
   End.

   Bình luận

2. uses crt;

   var a:array [1..1000] of lognint;

        n,i,kq:longint;

   begin

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

   for i:=1 to n do

   begin

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

   read(a[i]);

   end;

   for i:=1 to n do

   kq:=kq+a[i];

   write(‘Tong la: ‘,kq);

   readln;

   end.

   Bình luận