Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Составляем таблицу, в которой на пересечении строки и столбца будем ставить X, если такая комбинация невозможна, и V, если мы определили профессию. У меня будет также написан номер утверждения, в соответствии с которым ставился этот значок:
- <em>Петров и Гришин никогда не держали в руках малярной кисти</em> - значит, Петров и Гришин - не маляры.
- <em>Иванов и Гришин все собираются посетить мельницу, на которой работает их товарищ </em>- Иванов и Гришин - не мельники.
- <em>Петров и Иванов живут в одном доме с почтальоном </em>- Петров и Иванов - не почтальоны.
- <em>Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром</em> - Иванов и Сидоров - не плотники и не маляры.
- <em>Петров брал билеты на футбол для себя и мельника</em> - Петров - не мельник.
- У Иванова остается только вариант быть парикмахером, остальные - не парикмахеры.
- Петров - плотник, остальные не плотники
- Гришин - почтальон, остальные не почтальоны
- Сидоров - мельник, Алексеев - не мельник
- Алексеев - маляр
Ответ: Иванов - парикмахер, Петров - плотник, Гришин - почтальон, Сидоров - мельник, Алексеев - маляр
<span>артефакт,инстинкт,антарцит,оригинал</span>