Question

Сформировать целочисленный массив из 10 случайных чисел, принадлежащих интервалу [-10;10]. Подсчитать количество положительных элементов и заменить эти элементы их индексами . На экран вывести и первоначальный массив, и получившийся массив.
это в PascalABC

Answer 1

var i,k: integer;

a: array [1..10] of integer;

begin

 for i:=1 to 10 do begin a[i]:=random(-10,10);

 writeln(a[i]);

 if a[i]>0 then begin k:=k+1;a[i]:=i;

 end; end;

 writeln('измененый массив ');

  for i:=1 to 10  do writeln(a[i]);

end.