const
n = 10;
var
mas: array [1..n] of byte;
k, i: byte;
begin
i := 1;
for i := 1 to n do
begin
mas[i] := random(100);
Write(mas[i], ' | ');
end;
writeln;
k := 10;
for i := k to n - 1 do
mas[i] := mas[i + 1];
for i := 1 to n - 1 do
Write(mas[i], ' |...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.