Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.
<span>ухудшается защищенность секретных данных
</span><span>надо настраивать и поддерживать работу сети
</span><span>надо покупать новое оборудование для сети</span>
=B$1*$A2
как-то так
...............................................
Алгоритм КВАДРАТ <span> {</span>
покажись;
опусти_перо;
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
<span> }
Алгоритм Звездочки </span> повторить 18 {
вперед 200
налево 100
}
Алгоритм Звезды { вперед ( 60 ); налево ( 10 ); опусти_перо; цикл (10); налево ( 144 ); вперед ( 120 ); конец_цикла; поднять_перо; направо(18); назад(60); }
30*40*50=60000(символов)
1 символ = 1 байту
Ответ: 60000 байт содержит статья