<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
Так как просто прямая не возможна, то
проверить есть ли преграда по прямой с права (подъем)
если нет, то спуститься вниз со смещением в право, рассчитав новое положение.
закрасить клетку с предыдущими координатами
если препятствие есть, то выполнить подъем со смещением в право, рассчитав новое положение
закрасить клетку с предыдущими координатами.
А)маркированный список б)многоуровневый нумерованный список в)таблица г)нумерованный список д)многоуровневый маркированный список
Я само ведро буду обозначать цифрой обозначающей его объём , например восьми литровый бидон это 8 ,а сколько в нём на данный масла цифрой в скобках, например (1);
из 8(8) в 3(5)
из 8(5) в 5(5)
из 3(3) в 8(3)
из 5(5) в 3(3)
из 3(3) в 8(6)
из 5(2) в 3(2)
из 8(6) в 5(5)
из 5(5) в 3(3) <== после этого переливания в 5 литровом бидоне остаётся 4 литра
из 3(3) в 8(4)<== после этого переливания в 8 литровом бидоне остаётся 4 литра
