Var m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer; s:real; a:array[,]of integer; begin write('Число строк: '); readln(m); write('Число столбцов: '); readln(n); setlength(a,m+1,n+1); for i:=1 to m do begin writeln('Вводите элементы строки ',i,' по одному'); for j:=1 to n do readln(a[i,j]); end; min:=a[1,1]; max:=a[1,1]; imn:=1; jmn:=1; imx:=1; jmx:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; imn:=i; jmn:=j; end; if a[i,j]>max then begin max:=a[i,j]; imx:=i; jmx:=j; end; end; p:=a[imn,jmn]; a[imn,jmn]:=a[imx,jmx]; a[imx,jmx]:=p; writeln('Измененный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; write('Введите номер строки: '); readln(i); for j:=1 to n do if a[i,j]<0 then begin s:=s+a[i,j]; k:=k+1; end; writeln('Ср.ариф. отр.чисел в строке: ',s/k); end.
Программа: a = input("Введите текущую координату фигуры(вертикаль): ") b = input("Введите текущую координату фигуры(горизонталь): ") c = input("Введите координату для хода(вертикаль): ") d = input("Введите координату для хода(горизонталь): ") # Условие if (a==c) and (b==c): #Конец условия print("Фигура может сделать ход") else: print("Фигура НЕ может сделать ход") Условия: а) if (a==c) and (b==c): #ладья б) if abs(a-c) == abs(b-d): #слон в) if abs(a-c)==1 or abs(b-d)==1: #король г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5) or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь
Главный компьютер в сети - сервер. Т.е. ответ - С