Var i, s: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do begin
a[i] := random(10) - 5;
if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
write(a[i]:3);
end;
writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
end
else
begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;<span>end.</span>
Естественные системы: <span>космические системы — галактики, системы звезд и планет, такие, как наша Солнечная система; системы животных и растений; молекулярные и атомные системы. </span>
Искусственные системы <span>создают люди.Система городского транспорта, система телефонной связи, система торговли и т. д. Само человеческое общество — это тоже система взаимосвязанных личностей, которые образуют разнообразные подсистемы: семьи, трудовые коллективы, партии, нации, расы и пр.</span>
Case - разветвление, выбор из нескольких элементов или даже промежутков
And - логическая операция аналогичная коньюнкции
Or - логическая операция аналогичная дизьюнкции
ClrScr - clear screen, т.е. очистить экран
<span>Нельзя использовать кодовые слова, которые начинаются с 0 или с 10. 11 также не можем использовать, поскольку тогда мы больше не сможем взять никакое другое кодовое слово, а нам их нужно пять. Поэтому берём трёхзначное 110. По Условию Фано, если есть a, то ab существовать не может. Другими словами, мы не можем использовать начало с 0, а если возьмем 11, то начинать другие числа не сможем. Поэтому остается брать числа 110,1110,1111(последний берем без 0, т.к. он последний и других чисел уже не нужно, но если бы и было нужно, то стоит взять число 11110 не нарушая условия Фано)</span>