Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
60 дней ответ
1) берешь арифметическую прогрессию 5,6,7 и тд
2)в итоге за 59 дней он придумает 2006 песенок а за 60 он как раз допридумывает
1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
256 × 1024 =262144 килобайт
262145 × 1024 = 268435456 байт
268435456 × 8 = 2147483648 бит
Ботинки схожи с друг другом больше не зНАЮ!!!!!!!