Дан массив( а) из n элементов , нужно удалить 1ый встретившиеся нулевой элемент из массива ( написать программу)

Const   n=13; var   a: array[1..n] of integer;   i,k,t: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ')       end;   writeln;   { начало собственно программы }   i: =1; k: =0;   while (i< =n) and (k=0) do       begin       if a[i]=0 then k: =i;       i: =i+1       end;   if k> 0 then       begin       for i: =k to n-1 do a[i]: =a[i+1];       writeln('массив-результат');       for i: =1 to n-1 do write(a[i],' ');       writeln       end   else       writeln('в массиве нет нулевых элементов') end. контрольное решение исходный массив 6 -6 10 -9 6 9 0 10 6 0 -10 -3 6 массив-результат 6 -6 10 -9 6 9 10 6 0 -10 -3 6

1. не дано из какой системы счисления. если из 10 в 10, то будет 483 2.  не дано из какой системы счисления. если из 10 в 2, то будет 483 = 2^8 * 1 + 2^7 * 1 + 2^6 * 1 + 2^5 * 1 + 2^4 * 0 + 2^3 * 0 + 2^2 * 0 + 2^1 * 1 + 2^0 * 1 = 111 100 011 3. не дано из какой системы счисления. если из 10 в 8, то будет  483 = 8^2 * 7 + 8^1 * 4 + 8^0 * 3 = 743 4. как знаем, что 483 в двоичной будет 111 100 011, то в восьмеричную будет 743 (делишь число на три части. 7 это 111, 4 это 100, а 3 это 011) 5. знаем, что 483 в десятичной будет 483, то в шестнадцатеричной будет 1е3. (не знаю как сделать, но будет так) 6. ответ такой же как выше. число 111100011 делим на части по 4 символа. получаем 0001 1110 0011 (добавляем впереди нули), и по таблице будет 1е3 7. нельзя перевести, так как в восьмеричной системе счиления цифры только 0 1 2 3 4 5 6 7. а вот из шестнадцатеричной можно в восьмеричную число 483. будет 2203.  и сама таблица, если ее нет 0) 0000 1) 0001 2) 0010 3) 0011 4) 0100 5) 0101 6) 0110 7) 0111 8) 1000 9) 1001 а) 1010 b) 1011 c) 1100 d) 1101 e) 1110 f) 1111