Ан
Анастасия
вот на одномерный, дальше сам
uses crt;
const
n=10;
var
a:array[1..n]of integer;
i,j,temp:integer;
begin
clrscr;
{задаем выводим считаем}
writeln('Исходный массив: ');
write('[ ');
for i:=1 to n do
begin
a:=random(8)-4;
write(a,' ')
end;
writeln(']');
for i:=1 to n do
for j:=i to n do
if a[j] then
begin
temp:=a;
a:=a[j];
a[j]:=temp
end;
{выводим массив}
writeln('Полученный массив: ');
write('[ ');
for i:=1 to n do
write(a,' ');
writeln(']');
end.
Пишите на почту или в асю 586178755