Между населенными пунктами A, B, C, D, E построены дороги, протяженность которых (в километрах) приведена в таблице: Определите длину кратчайшего пути между пунктами A и D. Передвигаться можно только по дорогам, протяженность которых указана в таблице.
1) просто выводим элементы наооборот program gt; var a:array[1..6]of longint; n,i:integer; begin read(n); for i:=1 to n do begin read(a[i]); end; for i:=6 downto 1 do begin write(a[i],' '); end; end. 2) добавляем дополнительный массив b program gt; var a,b:array[1..6]of longint; n,k,i:integer; begin read(n); k:=7; for i:=1 to n do begin read(a[i]); k:=k-1; b[k]:=a[i]; end; for i:=1 to 6 do begin write(b[i],' '); end; end. 3) Изменяем элементы массива без дополнительных элементов Program z10; VAR p, i: Integer; x: Array [1..6] of integer; Begin For i:=1 to 3 Do begin p:=a[i]; a[i]:=a[6-i+1]; a[6-i+1]:=p; end; for i:=1 to 6 do begin write(a[i],' '); end; end.
Program a10; var a,b:Array [1..100,1..100] of integer; k,i,n,j,s:integer; Begin read(n); For i:=1 to n do begin For j:=1 to n do begin read(a[i,j]); end; end; i:=0;j:=0;s:=0;k:=0; while i<=n do begin i:=i+1;j:=j+1; if(a[i,j]>0)then k:=k+1; s:=s+a[i,j]; end; writeln(k,' ',s); end. 2) Program a10; var a,b:Array [1..100,1..100] of real; k,i,n,m,j:integer; s:real; Begin read(n,m); For i:=1 to n do begin For j:=1 to m do begin read(a[i,j]); end; end; k:=0; for j:=1 to m do begin s:=0; for i:=1 to n do begin s:=s+a[i,j]; end; for i:=1 to n do begin if(a[i,j]>(s-a[i,j]))then k:=k+1; end; end; writeln(k); end.
6
Объяснение в прикрепленном скриншоте :)