4 строки (если считать верхнюю), 3 столбца
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
1)
возьмем число 42
42 больше либо равно 41 - да
42 -12 = 30
30 больше либо равно 41 - нет
значение равно 30
возьмем число 50
50 больше либо равно 41 - да
50 - 12 = 38
38 больше либо равно 41 - нет
значение равно 38
2)
число 41
3)
число 53
4)
число 40
Путь А , B , F = 7 . От пути А , С , дорога в F не ведет .
Путь от А , F=9. Следовательно кратчайший путь от A в F = 7
Ответ ; 2