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

выводит ответ но рядом после точки слишком много цифр и символов как убрать это?

можно в рядом комментариями более подробно расписать что вы делали

Эта строчка-получившийся массив, запись элементов через запятую. Если хотите убрать, удалите:write (a[an],',');

а ну всё понял спасибо

setlength(a,n);-задание размерности массиваa[an]:=random(10); - случайное число до 10if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;-условие, заданное в задаче.

var a:array of real;n,an:integer;beginrandomize;writeln('Введите размерность массива');readln(n);n:=n+1;setlength(a,n);for an:=1 to n-1 dobegin;a[an]:=random(10);if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;write (a[an],',');end;end.