1. Viết chương trình sử dụng biến mảng nhập vào một dãy số gồm 40 phần tử và in ra tổng các phần tử của dãy số đó 2. Viết chương trình sử dụng biến mả

C1:
Uses Crt;
Var a:array[1..40] of integer;
i,S:integer;
Begin
Clrscr;
For i:= 1 to 40 do
Begin
Write(‘Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
S:=0;
For i:= 1 to 40 do S:=S+a[i];
Write(‘Vay tong S o day so tren = ‘,S);
Readln
End.
C2:
Uses Crt;
Var a:array[1..40] of integer;
i,T:longint;
Begin
Clrscr;
For i:= 1 to 40 do
Begin
Write(‘Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
T:=1;
For i:= 1 to 40 do T:=T*a[i];
Write(‘Vay tich o day so tren = ‘,T);
Readln
End.
*Nhớ tick và chọn làm ctrl hay nhất giúp mình nha! Thanks :333
* Hỏi gì thì comment bên dưới nhá! 😀