Необходимо перевести робота из начального положения () в точку А закрашивая при этом указанные клетки поля. Размеры стен между ними могут быть произвольны. Напишите программу для кумира
A2 № 3487. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.)
Определите длину кратчайшего пути между пунктами A и B (при условии, что передвигаться можно только по построенным дорогам). 1) 6 2) 7 3) 8 4) 9
A2 № 1030. Путешественник пришел в 08:00 на автостанцию поселка КАЛИНИНО и увидел следующее расписание автобусов:
Определите самое раннее время, когда путешественник сможет оказаться в пункте РАКИТИНО согласно этому расписанию.
uses crt; var a:array[1..11] of integer; i,j,s,k:integer; begin writeln('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(5); write(a[i]:4); end; s:=1; k:=0; for i:=1 to 10 do begin if a[i]=a[i+1] then s:=s+1; if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end; end; writeln; writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k); end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).
A2 № 3487. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.)
Определите длину кратчайшего пути между пунктами A и B (при условии, что передвигаться можно только по построенным дорогам).1) 6
2) 7
3) 8
4) 9
A2 № 1030. Путешественник пришел в 08:00 на автостанцию поселка КАЛИНИНО и увидел следующее расписание автобусов:
Определите самое раннее время, когда путешественник сможет оказаться в пункте РАКИТИНО согласно этому расписанию.1) 12:25
2) 12:30
3) 12:35
4) 12:40
uses crt;
var a:array[1..11] of integer;
i,j,s,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(5);
write(a[i]:4);
end;
s:=1; k:=0;
for i:=1 to 10 do begin
if a[i]=a[i+1] then s:=s+1;
if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
end;
writeln;
writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).