Var A:array[1..100,1..100] of Integer; min,i,j,N:integer; begin Readln(N); For i:=1 to N do For j:=1 to N do A[i,j]:=Random(0,100); For i:=1 to N do begin For j:=1 to N do Write(A[i,j],' '); Writeln; end; min:=A[1,1]; For i:=1 to N do For j:=N-i downto 1 do If A[i,j]<min then min:=A[i,j]; Writeln('min = ',min); end.
nataljatchetvertnova
18.01.2023
Программа: 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)): #конь
ЮрьевичКарпова1564
18.01.2023
1):С:\Учебный\Информатика\Кодирование -> С:\Учебный\Информатика -> С:\Учебный -> С:\Учебный\Информатика -> С:\Учебный\Информатика\Кодирование -> С:\Учебный\Информатика -> С:\Учебный -> Не подходит, т.к. Витя опустился на n уровней, а поднялся на n+2, что не подходит по условию. 2)С:\Учебный\Информатика\Кодирование -> С:\Учебный\Информатика -> С:\Учебный -> С:\Учебный\Информатика -> С:\Учебный\Информатика\Программирование-> С:\Учебный\Информатика\Программирование\Паскаль Не подходит, т.к. Витя спустился на либо на 2 уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию. 3)С:\Учебный\Информатика\Кодирование -> С:\Учебный\Информатика -> С:\Учебный -> С:\Учебный\Математика -> С:\Учебный\Математика\Дроби Подходит. Витя опустился на 2 уровня вниз и поднялся на 2 уровня вверх. 4)С:\Учебный\Информатика\Кодирование -> С:\Учебный\Информатика -> С:\Учебный -> С:\ -> С:\Учебный\ -> С:\Учебный\Информатика Не подходит, т.к. Витя спустился на 3 уровня вниз, а поднялся на 2, что не подходит по условию. ответ: 3)
min,i,j,N:integer;
begin
Readln(N);
For i:=1 to N do
For j:=1 to N do
A[i,j]:=Random(0,100);
For i:=1 to N do
begin
For j:=1 to N do
Write(A[i,j],' ');
Writeln;
end;
min:=A[1,1];
For i:=1 to N do
For j:=N-i downto 1 do
If A[i,j]<min then
min:=A[i,j];
Writeln('min = ',min);
end.