НАПИШИТЕ ПРОГРАММУ - ИГРУ. P.s. РЕАЛИЗОВАТЬ ВЫИГРЫШНУЮ СТРАТЕГИЮ ВТОРОГО ИГРОКА. ОБЪЯСНИТЬ ЧТО ДЕЛАЕТ - id1089603920210307 от alenalebedeva2 07.03.2021 11:54

Question

Информатика: НАПИШИТЕ ПРОГРАММУ - ИГРУ. P.s. РЕАЛИЗОВАТЬ ВЫИГРЫШНУЮ СТРАТЕГИЮ ВТОРОГО ИГРОКА. ОБЪЯСНИТЬ ЧТО ДЕЛАЕТ КОД. Имеется коробка, в которой лежит много шахматных королей. Двое играют в следующую игру: первый берет одного короля из коробки, выбирает любое поле на доске 8×8 и ставит туда выбранного короля. Затем второй делает ход этим королем, причем разрешается ходить только на те клетки, на которые раньше ни первый, ни второй игроки короля не ставили. Далее первый берет ещё одного короля из коробки, ставит

alenalebedeva2 · Accepted Answer

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

MOGZ ответил