Viết chương trình tính tổng bình phương của các số âm trong 1 mảng gồm N phần tử với N<=100
2 câu trả lời
uses crt;
var n,i:integer;
s:real;
a:array[1..100] of real
s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': ');readln(a[i]);
if a[i]<0 then s:=s+sqr(a[i]);
end;
writeln('Tong la: ',s:1:0);
readln
end.
Uses crt;
Var L:Array[1..100] of longint;
i, n, s: longint;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do begin write('L[',i,']='); readln(L[i]); end;
s:=0;
For i:=1 to n do if L[i]<0 then s:=s+sqr(L[i]);
Writeln(s:0:2);
Readln
End.
