-Цитата от Трэй
нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту
Код:
const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
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:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.