с информатикой - 10 класс Михеева.

Практическая работа №18
Работу нужно выполнить в формате .doc файлах в Excel

1) из условий (1) и (2) следует, что охотник живет не с краю, потому что справа от него живет столяр, а слева – врач; скрипач по условию (3)  живет с краю, он может жить как слева, так и справа от них, (4) скрипач живет рядом с врачом, поэтому он занимает крайний дом слева  профессии жильцов определили, остается разобраться с именами  из условия (5) «Семен не скрипач и не живет рядом со скрипачом» следует, что Семен – охотник или столяр:из условия (6) «Иван живет рядом с охотником» следует, что он – врач или столяр из условия (7) «Василий живет правее врача» определяем, что Василий – охотник или столяр из условия (8) «Василий живет через дом от Ивана» находим, что Иван – врач, а Василий –столяр тогда сразу получается, что Семен – охотник, а Геннадий должен занять оставшееся свободное место, он ­– скрипач

Следовательно ответ: Геннадий-скрипач, Иван- врач, Семен-охотник, Василий столяр

Var a,max,sum:integer;
    arr:array [0..2015] of integer;
    begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();

if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

end.