сделать положительными, числа которые больше нуля, сделать отрицательными, а числа которые равны 0, заменить квадратом индексомЗаранее спасибо))

Ответы:

var

i:integer,

a: array[1..15] of integer,

begin   

randomize,   

Writeln(Исходный массив),   

for i := 1 to 15 do begin       

a[i] := random (91) + 10,       

write (a[i]:5)   

end,   

for i := 1 to 15 do

 begin       

if a[i] = 0 then         

 a[i] := i*i       

 else       

 a[i] :=a[i]*(-1),       

 end,   

Writeln,   

Writeln(Результирующий массив),   

for i := 1 to 15 do       

 write (a[i]:5),

readln

end.

Последнее условие можно было не проверять до него не дойдет из условия [10,100]