begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.