Программа для удаление из массива всех отрицательных чисел.
Program udalenie_otrizatelnih_elementow_masiwa; Uses Crt; const n= 15; Var a: array [1..n] of integer; i, j, nOst: integer; Begin Randomize; writeln('выводим массив из 15 случайных чисел'); For i:= 1to n do Begin a[i]:=-15+ Random(100); Write(a[i],' '); End; writeln; nOst:=n; for i:=n downto 1 do if a[i]<0 then begin for j:=i to nOst-1 do a[j]:=a[j+1]; a[nOst]:=0; dec(nOst); end; Writeln('удалённый массив'); For i:= 1to nOst do Write(a[i],' '); Readln; end.