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

Question

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

Answer 1

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

Comments

Не получается в паскале...опишет ошибка где var

---

Неверно скопировано. Или кривой компилятор. Была бы ошибка - не было бы приведено "Тестовое решение".

---

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

---

Bum