Const a:array[1..10,1..5] of integer = (
(1,2,3,4,5),
(2,2,3,4,5),
(3,2,3,4,5),
(4,2,3,4,5),
(5,2,3,4,5),
(6,2,3,4,5),
(7,2,3,4,5),
(8,2,3,4,5),
(9,2,3,4,5),
(10,2,3,4,5) );
var
i,j:integer;
begin
writeln;
for i := 1 to 10 do
begin
for j:= 1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.
Забыл еще объявить массив х, нужно написать array of integer.
Посчитаем как обычные числа:
a=1
b=2
d=3
a=2*1=2
b=2+2*3=2+6=8
c=3+1=4
d=2+8-4=6
a=2+8+4=14
<em>ответ
a=14</em>
<em>b=8</em>
<em>c=4</em>
<em>d=6</em>