viết chương trình nhập vào 1 mảng có n(n<50) phần tử cà tính tổng các phần tử trong mảng đó

0 bình luận về “viết chương trình nhập vào 1 mảng có n(n<50) phần tử cà tính tổng các phần tử trong mảng đó”

1. Program Hotboy ;

   Uses crt;

   Var a:array[1..50] of integer ;

   S,n,i: Longint ;

   Begin

   Clrscr ;

   S:=0;

   Writeln(‘nhap so phan tu’); 

   Readln(n);

   For i:=1 to n do 

   Begin

   Write(‘A[‘,i,’]’); 

   Readln(A[i]);

   End;

   For i:=1 to n do

   S:=S+A[i];

   Writeln(‘Tong cac so trong mang la’,S);

   Readln

   End.

   Bình luận

2. Uses crt;

   Var a:array[1..50] of longint;

   S,n,i: integer ;

   Begin

   Clrscr ;

   S:=0;

   Writeln(‘nhap so phan tu’); 

   Readln(n);

   For i:=1 to n do 

   Begin

   Write(‘A[‘,i,’]’); 

   Readln(A[i]);

   End;

   For i:=1 to n do

   S:=S+A[i];

   Writeln(‘Tong cac so trong mang la’,S);

   Readln

   End.

   Bình luận