Const n=10; var a,b:array[1..n] of integer; i,k:integer; begin writeln('План поставки:'); for i:=1 to n do begin a[i]:=random(11)+5; write(a[i]:3); end; writeln; writeln('Поставлено:'); for i:=1 to n do begin b[i]:=random(11)+5; write(b[i]:3); end; writeln; k:=0; writeln('Получили трактора сверх плана колхозы:'); for i:=1 to n do begin if a[i]>b[i] then k:=k+1; if a[i]<b[i] then write(i,' '); end; writeln; writeln('Количество колхозов, недополучивших трактора = ',k); end.
Пример: План поставки: 11 8 9 8 10 9 10 9 14 8 Поставлено: 13 5 9 11 7 9 7 14 7 15 Получили трактора сверх плана колхозы: 1 4 8 10 Количество колхозов, недополучивших трактора = 4
Летающий автобус) 1. Мест в эконом-классе 120, а в бизнес-классе 40. 2. 100 процентов прибыли получим, если заполним все места. Билет в эконом-классе стоит в 2 раза меньше чем X. Получаем следующее уравнение: 40*X + 0.5*120*X = 100%, X = 1% от всей прибыли. Значит один билет в бизнес - классе приносит один процент прибыли. А один билет в эконом-классе приносит 0.5 процента прибыли. 3. Осталось рассчитать прибыль компании учитывая непроданные билеты: P = 100 - b - 0.5*a и написать программу:
var a,b:integer; begin repeat writeln('Введите количество непроданных билетов (a,b)'); readln(a,b); until (a<=120) and (b<=40)and (a>=0) and (b>=0); writeln('Прибыль компании составит ',100-b-0.5*a,'%'); end.
6 км
Объяснение:Пробегаемся по возможным дорожкам, сразу отбрасывая длинные пути... см. вложение. 3+3=6