<span>Сначала отвезти козу, потом вернуться , взять волка, оставить на втором берегу, а из второго берега забрать козу, оставить ее на первом, из первого берега забрать капусту, отвезти на второй, на втором получается волк и капуста, а потом из первого отвезти козу на второй берег.</span>
Точно в 10 степени? а то если да то там получается большое число<span />
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Вот держи.. Было очень легко.. Надеюсь ты поймёшь как это делать.
<span>Множество символов кодовой таблицы ASCII. Каждому символу приписывается целое число в диапазоне от 0 до 255.</span>