бля пацаны выручайте
написал программу вроде, а она не хочет работать
я хз уже что с ней делать
дан одномерный массив.удалить из него все отрицательные элементы со сдвигом элементов.в конце, если остаются пустые элементы, придать им значение 0 Показать скрытый текст
Код:
const k=10;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0;
for i:=1 to k do
begin
readln(a[i]);
end;
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=1 to k-1 do
a[o]:=a[o+1];
s:=s+1;
end;
end;
for i:=(k-s) to k do
begin
a[i]:=0;
end;
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.