Мост через реку стоит на 15 опорах, обозначим их буквами латинского алфавита от а до о. необходимо произвести ремонт опор моста, при разработке проекта ремонта была определена стоимость ремонта каждой опоры. опора: a, b, c, d, e, f, g, h, i, j, k, l, m, n, o стоимость ремонта: 10, 5, 20, 10, 30, 40, 30, 30, 30, 50, 100, 2, 10, 3, 20 (цифры стоят по порядку, соответствуют порядку букв - a-10 и т.д.) для того, чтобы мост был надежным, можно отремонтировать только часть опор, но с соблюдением следующих условий: 1. крайние опоры (а и о) должны быть отремонтированы. 2. не должно остаться двух стоящих рядом неотремонтированных опор. составьте план ремонта моста, при котором мост будет надежным, то есть будут выполнены перечисленные выше условия, а стоимость ремонта будет минимальной. , ! завтра сдавать !

A B D F H J L N O =170

3.1. 200

3.2. for i:1 to 200 do  a[i]:=random(100)-50;

3.3.  (т.к 4 байта)

либо -50 ... 50 (рандом)

3.4. Чтобы значения не "склеивались", т.к было расстояние между элементами

4.1. a[номер элемента] = значение элемента "перенос строки"

4.2. Для подсчета количества элементов равных 20

4.3.  k - она объявлена, но не используется

4.4.  Количество элементов равных 20

5.

var

a:array[1..300] of integer;

i,n,p,k: integer;

begin

p:=0;

n:=0;

randomize;

for i:1 to 300 do

a[i]:=random(40)-20;

for i:=1 to 300 do

write(a[i],' ');

writeln;

for i:=1 to 300 do

if a[i]=p then

begin

writeln('a[',i,']=',a[i]);

n:=n+1;

end;

writeln;

writeln(n);

end.

ꟷꟷꟷꟷꟷꟷ      

Не забывайте сказать " "! и, если ответ удовлетворил, то выберите его как "Лучший"    

Бодрого настроения и добра!        

Успехов в учебе!

задание 1:

использовать Робот

алг

нач

цел с=0

нц

вверх

если слева стена то закрасить; с:=1 всё

кц при с=1 и слева свободно

нц пока снизу свободно

если слева стена то с:=1 иначе с:=0 всё

вниз

если с=1 и слева стена то закрасить всё

кц

нц

если снизу свободно то с:=0 всё

вправо

если снизу стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и снизу свободно

кон

задание 2:

использовать Робот

алг

нач

цел с=0

нц

влево

если сверху стена то закрасить; с:=1 всё

кц при с=1 и сверху свободно

нц пока справа свободно

если сверху стена то с:=1 иначе с:=0 всё

вправо

если с=1 и сверху стена то закрасить всё

кц

нц

если справа свободно то с:=0 всё

вниз

если справа стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и справа свободно

кон