viết chương trinhg nhập vào bàn phím một dãy số gồm N phần tử (N<100). Hằng đếm và tính tổng các bình phương phân tử âm của dãy
2 câu trả lời
uses crt;
var a:array[1..101]of longint;
n,s,i,d:longint;
begin
clrscr;
write('n=');
readln(n);
i:=0;
repeat
begin
i:=i+1;
write('phan tu ',i,':');
readln(a[i]);
if a[i]<0 then
begin
s:=s+sqr(a[i]);
d:=d+1;
end;
end;
until
i>=n;
writeln('phan tu am',d:2);
writeln('tong phan tu am',s:2);
readln
end.
uses crt;
var s,dem:int64;i,n:longint;a:array[1..99]of longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
dem:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i]<0)then
begin
inc(dem);
s:=s+sqr(a[i]);
end;
end;
writeln('dem=',dem);
write('s=',s);
readln
end.
