• Pascal. Дан массив A[N]. Сформировать массив В из положительных элементов, кратных 3 массива А.

Ответы 7

  • что такое inc(j). можно без этого как-нибудь? ещё не проходили.
    • Автор:

      louis
    • 6 лет назад
    • 0
  • inc(j) увеличивает j на 1. Можно смело заменить на j := j + 1;
    • Автор:

      jasper56
    • 6 лет назад
    • 0
  • Исправил
    • Автор:

      dolcewi43
    • 6 лет назад
    • 0
  • Если дошли до массивов, a Inc() "еще не проходили", то скорее всего так мимо и пройдете.
    • Автор:

      coleprice
    • 6 лет назад
    • 0
  • Всегда удивляло, что некоторые учителя школьникам дают какие-то убогие огрызки средств языка.
    • Автор:

      hunt
    • 6 лет назад
    • 0
  • const  N = 20;var  a, b: array[1..N] of integer;  i, j: integer;begin  writeln('Массив A:');  for i := 1 to N do  begin    a[i] := random(199) - 99;    write(a[i] : 4);    if (a[i] > 0) and (a[i] mod 3 = 0) then    begin      j := j + 1;      b[j] := a[i];    end;  end;  writeln;  writeln('Массив B:');  for i := 1 to j do    write(b[i] : 4);end.Пример работы программы:Массив A:   3  73  -1 -35  97 -14  25  34 -79   5 -39  39  45  96 -85 -59 -14  76 -53 -12Массив B:   3  39  45  96
    • Автор:

      bug6n9i
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var b:=a.Where(x->(x>0) and (x mod 3=0)).ToArray.Printlnend.Тестовое решение:n= 1515 39 -3 -40 6 -47 -19 -19 17 14 7 31 10 -37 -1315 39 6
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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