Viết chương trình tính tổng bình phương của n số với n nhỏ hơn hoặc bằng 10 với n được nhập từ bàn phím
2 câu trả lời
Program tinh_tong;
Uses crt;
Var A: array [1..10] of integer;
n,i: byte;
S:longint;
Begin
Write ('nhap n=');
Readln (n);
For i:= 1 to n do
Begin
Write ('nhap phan tu thu',i,'=');
Readln (A[i]);
end;
S:=0;
For i:=1 to n do
S:= S+ A[i]*A[i];
Writeln ('Tong binh phuong cua n so la:',S);
Readln
End.
uses crt;
var A:array[1..10] of integer;
i,n:byte; S:longint;
begin
clrscr;
write('Nhap n (n<=10): '); readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
S:=S+sqr(A[i]);
end;
write('Tong la: ',S);
readln
end.