<span>import java.util.Scanner<span>;
</span>
public class NegSum {
public static void main(String[] args) {
Scanner in = new Scanner(System.in)<span>;
</span> int n = in.nextInt()<span>;
</span> int[] h = new int[n]<span>;
</span> int sum = 0<span>;
</span> for(int i = 0; i < n; i++) {
h[i] = in.nextInt()<span>;
</span> sum += h[i] < 0 ? i+1 : 0<span>;
</span> }
System.out.println(sum)<span>;
</span> }
}
</span>
<em>1.Информация - это сведения о чем либо. О предметах, событиях, явлениях и процессах окружающего нас мира.</em>
<em>Книги,интернет,телевизор, школа.</em>
<em>2. Графическая, звуковая, текстовая, числовая.</em>
<em>3. Объективность информации, достоверность информации, полнота информации, точность информации, актуальность информации, полезность (ценность) информации.</em>
Const n=20;
var
a:array[1..n] of integer;
i,j,t,x,i1,i2:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(21);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]<a[j+1] then begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
write('x = ');
readln(x);
i1:=1;
i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]>x then i1:=(i1+i2) div 2+1;
if a[i]<x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then begin
writeln('Искомый(ые) номер(а) элемента(ов):');
while (i>0)and(a[i]=x) do
i:=i-1;i:=i+1;
while (i<=n)and(a[i]=x) do begin
write(i,' '); i:=i+1; <span>end;</span>
end
else writeln('Элемент не найден');
writeln;
end.
Pascal ABC.
<span>Цифры стоят в алфавитном порядке: 8 (Восемь), 2 (Два) ...</span>