Я думаю, что будет в.
Для меня не понять 5 и 8, у них там 3 горизонтальных есть.
Движение объекта.Создание простой анимации в игровой среде.Объект будет двигаться постоянно,дойдя до края оттолкнется и обратнобудет двигаться.
program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Procedure SumKol(var n,k,s:integer);
begin
if n>0 then begin
s:=s+n mod 10;
k:=k+1;
n:=n div 10;
SumKol(n,k,s)
end
end;
function Mean(n:integer):real;
var k,s:integer;
begin
k:=0; s:=0;
SumKol(n,k,s);
if k>0 then Mean:=s/k else Mean:=0
end;
var
n,k,s:integer;
m:real;
begin
Read(n);
Writeln(Mean(n))
end.
решением неравенста является множество {4 5 6 7}
его мощность равна 4