6. между населёнными пунктами a, b, c, d, e построены дороги, протяжённость которых (в километрах) в таблице: определите кратчайший путь и его длину между пунктами а и е.
Очень много ошибок. Уже в 1 строке программы 2 ошибки: три точки вместо двух и отсутствует точка с запятой в конце строки. Ну и так далее. Рабочий код из вашего может быть таким:
var A: array [1..5] of integer; g, j, k, l: byte; begin randomize; for j := 1 to 5 do begin A[j] := random(9); writeln(A[j]); end;
for j := 1 to 5-1 do begin for g := j+1 to 5 do begin if A[j] > A[g] then begin K := A[j]; A[j] := A[g]; A[g] := K; end; end; end; for j := 1 to 5 do write(A[j]); end.
Хмм... Массив определяется (объявляется) двумя переменными(допустим a и b), где a - название массива, b - число столбцов. Имеет вид a[b] - это одномерный массив. Есть двумерные массивы a[b,c] - с - число строк. Они могут быть и трехмерные и n-мерные, но реже. Массив это грубо говоря таблица состоящая из С строк и b столбцов и называющаяся A. Отсчет обычно идет с нулевого элемента, т.е. самый первый элемент массива будет a[0;0]. Всё о массивах написать трудно, т.к. много и не понятно, что вообще Вам нужно.
Рабочий код из вашего может быть таким:
var
A: array [1..5] of integer;
g, j, k, l: byte;
begin
randomize;
for j := 1 to 5 do
begin
A[j] := random(9);
writeln(A[j]);
end;
for j := 1 to 5-1 do
begin
for g := j+1 to 5 do
begin
if A[j] > A[g] then begin
K := A[j];
A[j] := A[g];
A[g] := K;
end;
end;
end;
for j := 1 to 5 do
write(A[j]);
end.
Массив определяется (объявляется) двумя переменными(допустим a и b), где a - название массива, b - число столбцов. Имеет вид a[b] - это одномерный массив. Есть двумерные массивы a[b,c] - с - число строк. Они могут быть и трехмерные и n-мерные, но реже.
Массив это грубо говоря таблица состоящая из С строк и b столбцов и называющаяся A. Отсчет обычно идет с нулевого элемента, т.е. самый первый элемент массива будет a[0;0].
Всё о массивах написать трудно, т.к. много и не понятно, что вообще Вам нужно.