1) дан массив Р (N), состоящий из N вещественных чисел. Заменить отрицательные…

Uses crt; const n=20; var p: array[1… n] of integer; s: array[1… n] of integer; i,j: integer; beginrandomize; for i: =1 to n dobeginp[i]: =random (40) -20; write (p[i]: 3); end; writeln; for i: =1 to n doif p[i]<0 then p[i]: =p[i]*p[i]; for j: =1 to n dofor i: =1 to n doif i=j then s[j]: =p[i]; for j: =1 to n dowrite (s[j]: 4); end.