Const n=10; var a,b:array [1..n] of integer; i,min1,min2,k:integer; begin randomize; For i:=1 to n do begin a[i]:=random(10); b[i]:=random(10); end; writeln (a); writeln (b); writeln; min1:=1000; min2:=1000; For i:=1 to n do begin if a[i]<min1 then min1:=a[i]; if b[i]<min2 then begin min2:=b[i]; k:=i end; end; if k<n then begin b[k+1]:=min1; writeln (a); writeln (b); end else writeln ('Минимальным является последний элемент'); end.
P =NP
Объяснение:
создаем переменую х и у
и содаем перемную х 1 и у1
P равно х и игрек
NP равно х 1 и у1
теперь P =NP
проверяем в системе кординат например 8 на 8
мы видим равенство класов
смотри мы можем сделать так
допустим это книга с пронумероваными страницами
каждая страница собщаеть какой диапазон значение на даном поле
но если мы будем сравнивать первая клетка и каждую последущую перебором это будет долго
мы можем наложить поле на поле и проверить сразу два значения и сравнить их отельно
то есть найдя на страничке список номеровмы можем сразу выводить значения из поля и передать еще одной переменой проверить были совпадения или нет
var
a,b:array [1..n] of integer;
i,min1,min2,k:integer;
begin
randomize;
For i:=1 to n do begin
a[i]:=random(10);
b[i]:=random(10);
end;
writeln (a);
writeln (b);
writeln;
min1:=1000;
min2:=1000;
For i:=1 to n do begin
if a[i]<min1 then min1:=a[i];
if b[i]<min2 then begin min2:=b[i]; k:=i end;
end;
if k<n
then begin
b[k+1]:=min1;
writeln (a);
writeln (b);
end
else writeln ('Минимальным является последний элемент');
end.
Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]
Минимальным является последний элемент
2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]
PS: Менять N можно в описании константы