Есть рекурсивный вариант: например
double area(ll xa, ll ya, ll xb, ll yb, ll xc, ll yc){ double res = abs(xa * (yc - yb) + xb * (ya - yc) + xc * (yb - ya)) / 2.0; return res;<span>}
вот формула </span>res = abs(xa * (yc - yb) + xb * (ya - yc) + xc * (yb - ya))
здесь xa, ya ... - координаты
1 принтер
2 мышь
3 процессор
4 принтер
5 системный блок
6 системный блок
7 карта расширения
8 Delete
9 цветной принтер
Пояснения надо?
На паскаль:
var
a: array [1..10] of integer;
max, min, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
max:=-maxint;
min:= maxint;
for i:= 1 to 10 do
if (a[i]>max) then max:=a[i];
for i := 1 to 10 do
if (a[i]<min) then min := a[i];
for i := 1 to 10 do
if (a[i]<0) then a[i] := min else if (a[i]>0) then a[i]:=max;
for i := 1 to 10 do
write(a[i],' ');
readln;
readln;
end.
Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ