программирование 10 класс

[Serge_Bliznykov]

BDA, спасибо. доходчиво.

[badnum23]

Serge_Bliznykov, я не особо её тестировал, но разумеется можно подправить и учесть такой вариант.
Есть и ещё одно решение: один внешний цикл и один внутренний. Во внутреннем будет сдвигаться массив на единицу. Потом сравниваться с максимумом текущим. Внешний цикл будет до тех пор, пока n раз не сдвинется на 1. Второй вариант кажется более затратным, нежели чем описанный в моём предыдущем посте.

[Sasha_Smirnov]

Чтобы осуществить циклический сдвиг, просто напрашивается циклический список.

Не имею среды Pascal — но, насколько мне помнится, это было красиво.

[Chaang]

program task3d;
var
a,r,s,st,i:longint;
b:array [1..31] of longint;
begin
writeln('Введите число ');
readln(a);
if a mod 2=0 then
writeln('Невозможно')
else
begin
r:=0;
st:=1;
s:=0;
while s<a do
begin
r:=r+1;
s:=s+st;
if s<a then st:=st*2;
end;
writeln('Минимальное число шагов ',r);
end;
s:=(s-a) div 2;
st:=1;
for i:=1 to r do
begin
if (s mod 2=0) then
write('+',st)
else
write('-',st);
if i<r then st:=st*2;
s:=s div 2;
end;
readln;
end.

[Вера 13666]

Сообщение от badnum23

Решение второй задачи:

program Project2;

type
  TArray = array [1..100] of Byte;
var
  a: TArray;
  lenA, i, j, max, j1: Integer;
  t: Boolean;

begin
  Randomize;
  lenA := random(90) + 10;
//lenA := 7;

  {a[1] := 1;
  a[2] := 7;
  a[3] := 3;
  a[4] := 0;
  a[5] := 3;
  a[6] := 8;
  a[7] := 2; }

  for i := 1 to lenA do
  begin
    a[i] := random(9)+1;
    write(a[i]);
  end;

  writeln;

  max := 1;
  for i := 2 to lenA do
    if a[i] > a[max] then
      max := i
    else if a[i] = a[max] then
    begin
      j := i+1;
      if j > lenA then j := 1;
      j1 := max+1;
      t := true;
      while t do
      begin
        if a[j] > a[j1] then
        begin
          max := i;
          t := false;
        end
        else if a[j] = a[j1] then
        begin
          inc(j);
          inc(j1);
          if (j > lenA) then
            j := 1;
          if (j1 > lenA) then
            j1 := 1;
        end
        else
          t := false;

      end;
    end;

  i := max;
  while i <> max-1 do
  begin
    write(a[i]);
    inc(i);
    if i > lenA then i := 1;
  end;
  writeLn(a[max-1]);
  readln;

end.

Если требуется, то вы сможете переделать под ввод из файла сами.

Сори за глупый вопрос, но подскажите данный язык программирования)

[Poma][a]

Вера, не надо выделять полностью всё сообщение (особенно с кодом) (это нарушение правил форума (оверквотинг)).
А программа написана на добром Pascal'e.