Информатика : зделайте на примере WallFromLeft . этих программ за 7 класс ​

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array of integer;
 n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
 writeln('Введите размерность:');
 readln(n);
 setlength(ar,n);
 writeln('Array:');
  for i:=0 to n-1 do
   begin
    ar[i]:=random(-30,30);
    write(ar[i]:4);
    if min>=ar[i] then
     begin
      min:=ar[i];
      mini:=i;
     end;
   end;
  for i:=0 to mini-1 do
   if ar[i]<0 then ar[i]:=0;
 writeln;
 writeln('Final array:');
  for i:=0 to n-1 do
   write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
  -3 -26  -2  18 -21
Final array:
   0 -26  -2  18 -21

1) 15342 2) 16034

Объяснение:

Для этого переведем его сначала в десятичную вот так :

1AE216 = 1∙16^3+10∙16^2+14∙16^1+2∙16^0 = 4096+2560+224+2 = 688210

Получилось: 688210

Переведем 688210 в восьмеричную систему вот так:

Целая часть числа находится делением на основание новой

(см. картинку)

Получилось: 688210(десятеричная) = 153428 (восьмеричная)

2)Для этого переведем его сначала в десятичную вот так :

1C1C16 = 1∙16^3+12∙16^2+1∙16^1+12∙16^0 = 4096+3072+16+12 = 719610

Получилось: 719610

Переведем 719610 в восьмеричную систему вот так:

Целая часть числа находится делением на основание новой

(см. картинку 2)

Получилось:719610 (десятеричная) = 160348 (восьмеричная)