Program pr;
uses crt;
Var N,M:array[1..15] of integer;
i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;
for i:=1 to 15 do Begin
if N[i]>=0 then kNp:=kNp+1
else kNo:=kNo+1;
if M[i]>=0 then kMp:=kMp+1
else kMo:=kMo+1;
end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.
Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.
Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)
1)Взять козу,переплыть,высадить.
2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.
3) Взять капусту, переплыть, высадить.
4)Переплыть,взять козу, переплыть,высадить.
5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)
Каждая точка может иметь 2 значения либо 1 (закрашено) либо 0 (не закрашено), то есть 1 точка = 1 бит. 100*1 = 100 бит.