Решите в ! дан одномерный массив а.сформировать новый массив который состоит только из тех элементов массива в,которые превосходят свой номер на 10.если таких элементов нет,то выдать сообщение
Если никакие две карточки не были открыты дважды, то все попытки мистера Форда были неудачными, он вытаскивал разные ненужные карточки; все ходы мистера Фокса, кроме последнего, тоже были неудачными, а на последнем ходу он открыл все 5 нужных карточек.
Всего неудачных ходов могло быть не больше 30 - 5 = 25 - это число неподходящих карточек. Мистер Фокс и мистер Форд сделали одинаковое число неудачных ходов, значит, вместе они сделали не больше 24 неудачных ходов, а с учетом последнего, удачного, хода мистера Фокса, ходов могло быть не более 25.
# Код на ruby 2.2.3p173 def zadanie(line, time) line = line.gsub(/[^MD]/, "") time.times { |i| k = 0 while k < line.size - 1 do if line[k..k + 1] == "MD" line[k], line[k + 1] = line[k + 1], line[k] k+=1 end k+=1 end p [i+1,line] } return line end # # Примеры применения # p zadanie("MDDDMMDMDDDDDM", 10) p zadanie("MMDMMMDDDMDDDMD", 10)
program raf105;
const
n = 10; //Размер массива
var
a,b: array[1..n] of integer;
i,c: integer;
begin
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
write(i,'. ');
readln(a[i]);
if a[i]-10 = i
then begin
c:= c+1;
b[c]:= a[i];
end;
end;
if c > 0
then begin
write('Новый массив: ');
for i:=1 to c do
write(b[i],' ')
end
else writeln('Элементов превосходящих свой индекс на 10 не найдено.');
end.
PascalABC 3.4.2