• 1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов

Ответы 5

  • Не получается в паскале...опишет ошибка где var
  • Неверно скопировано. Или кривой компилятор. Была бы ошибка - не было бы приведено "Тестовое решение".
    • Автор:

      walker38
    • 6 лет назад
    • 0
  • Я уже привык, что появляется какой-то анацефал и правильный ответ помечает нарушением. Так что не удивляюсь.
    • Автор:

      simbawkko
    • 6 лет назад
    • 0
  • Bum
  • const  n = 10;var  a: array[1..n] of integer;  i: integer;begin  Randomize;  Writeln('Исходный массив');  for i := 1 to n do  begin    a[i] := Random(51) - 25;    Write(a[i]:4);  end;  Writeln;  Writeln('Результирующий массив');  for i := 1 to n do  begin    if a[i] > 0 then a[i] := a[i] div 2 else a[i] := i;    Write(a[i]:4);  end;  Writeln;end.Тестовое решение:Исходный массив   5 -19 -24 -21  -4  14 -18 -21   2 -14Результирующий массив   2   2   3   4   5   7   7   8   1  10
    • Автор:

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

Войти через Google

или

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

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

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