Алгоритмы и программы. Афанасьева Т. В - 121 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

121
end;
end;
for i:=imin to 9 do { удаление }
a[i]:=a[i+1];
a[10]:=0;
writeln('Результат');
for i:=1 to 9 do
write(a[i],' ') ;
readln;
readln;
end.
Пример 7.12. В одномерном массиве перенести второй нулевой
элемент в начало массива.
program a1;
var
a:array[1..10] of integer;
k,i,n,p:integer;
begin
writeln(' В одномерном массиве из 10 элементов перенести');
writeln(' второй нулевой элемент в начало массива');
k:=0;
writeln;
writeln(' Введите исходный массив хотя бы с ');
writeln(' двумя нулевыми элементами через пробелы');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]=0 then
begin
k:=k+1;
if (k=2) then n:=i ;
end;
end;
p:=a[n];
for i:=n downto 2 do { цикл переноса в начало }
a[i]:=a[i–1];
a[1]:=p;
writeln('Результат');
for i:=1 to 10 do
begin
write(a[i]:2);
end;

Страницы