Program help;
uses Crt;
var a,cot,cpo:integer;
begin
ot:=0;po:=0;cot:=0;cpo:=0
repeat
writeln('Число: ');
readln(a);
if a<0 then begin ot:=ot+a; inc(cot);end else
if a>0 then begin po:=po+a; inc(cpo); end else
if a=0 then begin
writeln('Кол-во положительных чисел: ',cpo);
writeln('Кол-во отрицательных чисел: ',cot);
end;
until a=0;
readln;
end
Роман, козак,коза,Канада, мак,Рома,корова.
1. N=32-(-32)=6
2 в 7 степени=128
2 в 6 степени>65<2 в 7 степени
i=7
40960:7=286720 бит
Вставить установочный диск/флешку с Windows, и восстановить. Эта проблема означает что у вас нету точки восстановления. Лучше включить что бы в будущем не было таких проблем