Var
a: array [1..10000,1..10000] of integer;
c,s,b,n,m: integer;
begin
readln (n,m);
for b:=1 to n do
for c:=1 to m do
readln (a[b,c]);
for b:=1 to n do
for c:=1 to m do
if ((a[b,c] < 10) and (a[b,c] > 0)) then s:= s+a[b,c];
writeln (s);
end.
Думаю, таблица может быть произвольной. Главное, чтобы было место для ввода x и вывода у.
Например, смотри картинку...
Самые удаленные города это города А и Б, самая короткая дорога до них это через АЕС и будет равна она 17
10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);