При наполнении страниц сайта информационными материалами следует придерживаться следующих рекомендаций:1.В каждом абзаце используйте разные приёмы форматирования.
2.Не размещайте на странице слишком много информационных и художественных блоков.
3.Названия пунктов меню делайте длинными.
4.Названия пунктов меню делайте краткими; недопустимо растягивание названия пункта на несколько строк.
5.Размещайте на странице слишком много информационных и художественных блоков
===== PascalABC.NET =====
function S(a: array[,] of integer) :=
a.Cols.Where(p -> p.All(q -> q >= 0)).SelectMany(p -> p).Sum;
function M(a: array[,] of integer): integer;
begin
var n := a.RowCount;
Result := integer.MaxValue;
var s: integer;
for var i := 0 to n - 2 do
begin
s := 0;
for var j := 0 to i do
s += Abs(a[i - j, j]);
if s < Result then
Result := s
end;
for var j := 1 to n - 1 do
begin
s := 0;
for var i := n - 1 downto j do
s += Abs(a[i, n - i + j - 1]);
if s < Result then
Result := s
end
end;
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -10, 30);
a.Println;
S(a).Println;
M(a).Println;
end.
Код программы:
var a:array[1..27] of integer;
b, i, c, ind:integer;
begin
a[1]:= 72;
a[2]:= 76;
a[3]:= 92;
a[4]:= 45;
a[5]:= 55;
a[6]:= 82;
a[7]:= 46;
a[8]:= 39;
a[9]:= 78;
a[10]:=50;
a[11]:=34;
a[12]:=71;
a[13]:=44;
a[14]:= 92;
a[15]:= 38;
a[16]:= 51;
a[17]:= 6;
a[18]:= 45;
a[19]:= 66;
a[20]:= 78;
a[21]:= 19;
a[22]:= 17;
a[23]:= 42;
a[24]:= 36;
a[25]:= 34;
a[26]:= 91;
a[27]:= 61;
writeln('Введите число');
readln(b);
if ((b >= 0) and (b <= 100)) then begin
c:=abs(b - a[1]);
for i:=2 to 27 do begin
if(abs(b - a[i]) <=c) then begin
c:=abs(b - a[i]);
ind:=i;
end;
end;
writeln('Результат: ', a[ind]);
end
else
writeln('Ошибка, число должно быть больше 0 и меньше 100');
end.