Сформировать целочисленный массив из 10 случайных чисел, принадлежащих интервалу [-10;10]. Подсчитать количество положительных элементов и заменить эти элементы их индексами . На экран вывести и первоначальный массив, и получившийся массив.
это в PascalABC
это в PascalABC
Answers & Comments
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.