Изменить данную программу, так, чтобы она удаляла все отрицательные элементы! type linmass = array [1..100] of integer; var a : linmass; n, i, j, i1 : integer; begin write('количество элементов массива: '); readln(n); i1: =0; for i : = 1 to n do begin write('введите a[', i, '] '); readln(a[i]); if(a[i]< 0)and(i1=0)then i1: =i; end; if i1=0 then write('отрицательных элементов нет') else begin if i1=n then n: =n-1 else begin for i: =i1 to n-1 do a[i]: =a[i+1]; n: =n-1; end; writeln('удаление первого отрицательного элемента'); for i : = 1 to n do write(a[i]: 6); end; end.

Var       a: array [1..100] of integer;       n, i, j, k: integer; begin       write('количество элементов массива: ');       readln(n);       k : = 0;             for i : = 1 to n do       begin               write('a[', i, '] = ');               readln(a[i]);               {a[i] : = random(100) - 50;               write(a[i], ' '); }               if a[i] < 0 then k : = i;       end;       writeln;             {фильтр, если нет отрицательных}       if k = 0 then begin               write('отрицательных элементов нет');               halt;       end;             writeln('удаление отрицательных элементов');       k : = 1;       while (n > 0) and (k < = n) do       begin               if a[k] < 0 then begin                       for i : = k to n - 1 do                               a[i] : = a[i + 1];                       n : = n - 1;               end               else k : = k + 1;       end;             for i : = 1 to n do               write(a[i], ' '); end. а вообще правильнее создать еще один массив и переписать туда нужные элементы - куда меньше операций, циклов и затрат памяти. массив не предназначен для "удаления" элементов в нем

ответ: 41

объяснение:

тебе нужно число: 10100 в двоичной системе счисления и хочешь перевести его в десятичную.

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

1010012 = 1∙25+0∙24+1∙23+0∙22+0∙21+1∙20 = 32+0+8+0+0+1 = 41

получилось: 41