• Дан массив А(20). Переписать элементы этого массива, стоящие на четных местах, подряд в массив В, а стоящие на нечетных местах – в массив С.

Ответы 6

  • Только вот старые собаки и придумывают эти новые штуки.Одно дело, если ты в состоянии написать сам написать эти новые штуки(или хотя бы более менее понимаешь, как они работают изнутри).Другое дело, когда ты не можешь решить задачу с одним циклом.
  • Я только учусь паскалю, так что не обижайтесь на меня)))
    • Автор:

      karlie
    • 6 лет назад
    • 0
  • Да никто и не обижается)))
  • Вы же про "соль на рану" так написали, будто знаете уже пяток других языков, а вот этот Паскаль - ну просто заноза... )))
    • Автор:

      lewis56
    • 6 лет назад
    • 0
  • А насчет ссылки на программирование в FPC Вы все же подумайте, если не хотите и дальше получать современные решения на PABC 3.3 )))
    • Автор:

      kentkmgz
    • 6 лет назад
    • 0
  • var  A: array [1..20] of integer;  B, C: array [1..10] of integer;  i, tmp: byte;beginfor i := 1 to 20 dobegin  A[i] := random(30)+1;  write(A[i]:4);  tmp := tmp + 1;  if i mod 2 <> 0 then C[tmp] := A[i]  else  begin    B[tmp - 1] := A[i];    tmp := tmp - 1;  end;end;writeln;for i := 1 to 10 do write(B[i]:4);writeln;for i := 1 to 10 do write(C[i]:4);end. 
    • Автор:

      kiki0hpo
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years