viết chương trình : Nhập 1 mãng bất kì và tình tổng số các phần tử của mãng.
Program Mang1C;
Uses crt;
Type Mang20 = array[1..20] of Integer;
Var N:Integer;
A:Mang20;
Procedure NhapMang1C(Var A : Mang20 ;Var N:Integer);
Var i: Integer;
Begin
Write( 'So luong phan tu:' ); Readln( N);
For i:=0 to N do
Begin
Write( 'Nhap phan tu thu ', i,'' ); Readln( A
);
End;
End;
Procedure XuatMang1C( Var A : Mang20;Var N :Integer );
Var i:Integer;
Begin
For i :=0 to N do
Write( A:2 );
Writeln;
End;
Function TongMang1C( A : Mang20; N:Integer):longint;
Var i :Integer;
S :longint;
Begin
S := 0;
For i:=0 to N do
S := S + A ;
TongMang1C:=S;
End;
BEGIN
NhapMang1C( A, N );
XuatMang1C( A, N );
Writeln(' Tong cac phan tu trong mang ', TongMang1C(A, N) );
Readln;
END.
Nguồn: Copy!