В интернете нету что ли ?
01.<span>program massiv5;</span>02.<span>uses crt;</span>03.<span>const N=10;</span>04.<span>type x=array [1..<span>N] </span>of integer;</span>05.<span>var a:x;</span>06.<span>i:integer;</span>07.<span>max:integer;</span>08.<span>imax:integer;</span>09.begin10.clrscr;11.randomize;12.<span>for i:=1 to <span>N </span>do</span>13.begin14.<span>a[i]:= -50+random(101);</span>15.<span>write (A[i]:5)</span>16.<span>end;</span>17.<span>writeln;</span>18.<span>imax:=1;</span>19.<span>max:=A[1];</span>20.<span>for i:=2 to <span>N </span>do</span>21.<span>if <span>max<a[i] </span>then</span>22.begin23.max:=a[i];24.imax:=i25.<span>end;</span>26.<span>writeln (‘Максимальный элемент в массиве=’,max:5);</span>27.<span>writeln (‘Его индекс=’,imax:5);</span>28.readln29.<span>end<span>.</span></span>
Разберем, куда сместился чертёжник по координатам x и y после выполнения программы:
x = 3*(-2) - 1 = -6 - 4 = -10
y = 3*(-3) - 2 = -9 - 2 = -11
Если предположить, что чертежник изначально был в начале координат, то он окажется в точке (-10, -11), чтобы вернуться в начало ему нужно выполнить команду "Сместиться на вектор (10, 11)".
Точность,а то ещё может подойти чёткость.<span><span /></span>
Var
i,j,n,m,sum:integer;
a:array[1..1000, 1..1000] of integer;
begin
Readln(n,m);
for i:= 1 to n do
for j:= 1 to m do
Read(a[i,j]);
for i:= 1 to n do
for j:= 1 to m do
sum:= sum+a[i,j];
Writeln(sum);
end.
