дан одномерный  массив . Упорядочить массив удалив нули со сдвигом на лево

a[i]:=random(21)-10- как это деянье разуметь?

что такое "random" ?

Вам не разъясняли?? Удивительно, это же впрямую связано с массивами. Ну это паскаль сам берет случайное число. В этом примере random(21)-10 означает, что выбирается случайное число из спектра [-10;10]. Указывать спектр, к примеру [х;у], нужно по формуле Random (у-х+1)+х

a[i]:=random(21)-10- как это деяние разуметь?

что такое "random" ?

Для вас не объясняли?? Удивительно, это же впрямую связано с массивами. Ну это паскаль сам берет случайное число. В этом образце random(21)-10 означает, что выбирается случайное число из спектра [-10;10]. Указывать диапазон, к примеру [х;у], необходимо по формуле Random (у-х+1)+х

Const n=10;
var a:array [1..n] of integer;
i,j,k,l:integer;
begin
создание и вывод массива
for i:=1 to n do
    begin
    a[i]:=random(21)-10;
    write (a[i],' ');
    end;
writeln;
сортировка массива
for j:=1 to n do
for i:=1 to n-1 do
if a[i]gt;a[i+1] then
   begin
   k:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=k;
   end;
Удаление нулей
k:=0;
while klt;gt;n do
      begin
      k:=k+1;
      if a[k]=0 then
         begin
         l:=l+1;
         for i:=k to n-1 do
         a[i]:=a[i+1];
         end;
      end;
Вывод массива
for i:=1 to n-l do
write (a[i],' ');
end.