Построить матрицу, которая будет получена в результате образца:​

1-й Рустам

2-я Галина

3-й Эдуард

4-й Яков

5-я Карина

Объяснение:

Всего 5 бегунов.

Бегун       Номер по финишированию

Рустам                        r≠2

Эдуард                      e=r+2

Яков                           a≠1

Галина                     g≠1; g≠5

Карина                      k=a+1

e=r+2 ⇒ r≤5-2=3 ⇒           ( r=1 и e=3 ) или ( r=3 и e=5 )

g≠1; g≠5 ⇒                          g=2 или g=3 или g=4

k=a+1 и a≠1 ⇒ a≤5-1=4  ⇒ ( a=2 и k=3 ) или (a=3 и  k=4 ) или ( a=4 и k=5 )

Только Рустам может быть на 1 месте. Значит Эдуард 3-й. Поскольку 3 место занято, то вариантов ( a=2 и k=3 ) или (a=3 и  k=4 ) не может быть. Значит Яков 4-й и Карина 5-я. Осталось свободное только 2-е место, значит Галина на 2-м.

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.