Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100
Нужно сложить все числа и разделить на количество самих чисел. Например среднее арифметическое чисел 8, 2 и 20 будет 10, потому что (8+2+20):3=10
X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>
это 2.б всё тут ясно и понятно.
вместо b надо написать 4 нужно просто посчитать сколько клеток у точки В будет(4;4)
//Боль
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
max,min,p:real;
maxn,minn,n,i:integer;
ar:array of real;
s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,p);
inc(n);
setlength(ar,n);
ar[n-1]:=p;
if ar[n-1]>max then
begin
max:=ar[n-1];
maxn:=n-1;
end;
if ar[n-1]<min then
begin
min:=ar[n-1];
minn:=n-1;
end;
end;
close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.
Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1