Написать программу для решения задачи в Паскале: "В массиве из десяти элементов переставить все нулевые элементы в начало массива."

1

Ответы и объяснения

2014-01-01T13:42:40+00:00
Uses crt;
var i,j,temp:integer;
a:array[1..10] of integer;
begin
writeln('Inouyt elements:');
for i:=1 to 10 do
read(a[i]);
j:=1;
for i:=1 to 10 do
if a[i] = 0 then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
inc(j);
end;
for i:=1 to 10 do
write(a[i],' ');
end.