var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
4) Наша старя добрая оперативка. D
6) B :)
Последнее, СОДА
Там в начале 000 - это однозначно С, потом 111 - это О
Потом 10 или 100 - это может быть либо Д, либо Н, но если Н, тогда остается 001 - такого кода нет, значит Д
Тогда остается 01 и это А
<span>
N вводится с клавиатуры
#include<span> <stdio.h>
</span>
int main()
{
int i = 0<span>;
</span> int N<span>;
</span>
scanf("%i", &N)<span>;
</span>
for ( i = 0; i < N; i++ ){
printf ("*")<span>;
</span> }
}</span>