Сдвиг элементов влево на Pascal
Сдвиг элементов влево...
const N = 10;
var a: array [1..N] of integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=1 to N-1 do
a[i] := a[i+1];
a[N] := 0;
writeln('После сдвига влево: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.
10.02.2015, 10:45 -
Категория: Статьи » Программирование » Pascal