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

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

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

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

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