массивы..

[Muxa132]

прога на paskal !

дан массив V1 в котором 16 элементов по оси x и 16 по y ! во второй массив на оси i и j ставить числа так чтобы i[1]=x[1]+x[2]и аналогично j !!

Key:
//сразу var
var
V1:array[x[1]..x[16];y[1]..y[16]]of double;
V2:array[i[1]..i[15];j[1]..j[15]];

принцип x[1]+x[2]=i[1]

x y i j
1 2 3 5
2 3

потом прошу пользователя задать x[1]-x[16] and y[1]-y[16]
for x:=1 to 15 do
for i:=1 to 15 do
V2[i]:=V1[x]+V1[x+1]
for y:=1 to 15 do
for j:=1 to 15 do
V2[j]:=V1[y]+V1[y+1]
правильно????