Элементам массива присвоены следующие значения: m[6]: = 5; m[7]: = 7; m[8]: = 12; m[9]: = 5; m[10]: = 9. затем выполняют следующие команды: с: = 0; for i : = 6 to 10 do if (i mod 2 = 0) c: = c+ m[i] else c: = c-m[i]; напиши значение с = 
В цикле к переменной С прибавляются элементы с четными индексами (i mod 2 = 0) и из переменной С вычитаются элементы с нечетными индексами. C = 0+5-7+12-5+9 = 14
procedure GetPoint(c:char; var A:Point); var x,y:real; begin Write('Введите координаты x и y точки ',c,': '); Read(x,y); A.x:=x; A.y:=y end;
function DistPoint(A,B:Point):real; begin DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
var A,B,M:Point; d,p,ab,ma,mb:real; begin GetPoint('A',A); GetPoint('B',B); GetPoint('M',M); ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B); if ma>=ab+mb then d:=mb else if mb>=ma+ab then d:=ma else begin p:=(ma+mb+ab)/2; d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; Writeln('Минимальное расстояние составляет ',d) end.
Тестовое решение: Введите координаты x и y точки A: -3 -5 Введите координаты x и y точки B: 2 5 Введите координаты x и y точки M: -3 4 Минимальное расстояние составляет 4.02492235949962
Const nx=30;mx=30; var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer; begin write('Введите n');Readln(n); write('Введите m');Readln(m); for i:=1 to n do begin for j:=1 to m do вegin A[i,j]:=random(100)-20; write(A[i,j]:4);end;writeln;end;writeln; for i:=1 to n do begin for j:=1 to m do begin if (A[i,j] mod 3 =0) then begin B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end; for i:=1 to n do begin if (B[i]=0) and (D[i]= 0) then B[i]:= -10; write(B[i]:4);end;end.
C = 0+5-7+12-5+9 = 14