после запятой значение переменной
writeln ('s = ', s);
<em>В порядке возрастания количества страниц:</em>
АГВБ
1) 4 и 5
2) 1 и 6
3) 4 и 5
4) не знаю(
5) ложь или просто -, не знаю как у вас в школе
6) ложь или -
7) не знаю
8) вроде 4, но это не точно, так что аккуратно
Надеюсь помог
Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4
Сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. Потом переправить волка, ну а потом уже козу.