ПМ
Полина Маркалова
var
a: array of integer;
c, m, n: integer;
begin
randomize;
write('array: ');
n := 13;
setlength(a, n);
for c := 1 to n do begin
a[c] := random(101) - 50;
write(' ', a[c]);
end;
writeln;
for c := 1 to n do if (a[c] < 0) and ((m = 0) or (a[c] > a[m])) then m := c;
if m <> 0 then begin
dec(n);
for c := m to n do a[c] := a[c + 1];
setlength(a, n);
end;
write('result:');
for c := 1 to n do write(' ', a[c]);
writeln;
end.