решить задания. Первое задание не поместилось, поэтому тут напишу: Между населенными пунктами A, B,C, D,E построены дороги ,протяженность которых (в километрах)приведена в таблице(см. рисунок).Определите длину кратчайшего пути между пунктами А и Е ,проходящего через пункт С. Передвигаться можно только по дорогам ,протяжённость которых указана в таблице.

1)9

2)6

4)10

Объяснение:

1)А-С-Д-Е=4+3+2=9

2)А-Д-С-Е=1+3+2=6

4)А-Е-С-Д=2+7+1=10

1) описание массива должно быть константным, запись  n+20 - переменная. изменить: задать n+20 в виде константы.

2) будет куча ошибок

а) i: byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной c, хотя она используется (if c[i] mod 10=0 then p: =p+1; )

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.