Переведите число 10101001 из двоичной системы счисления в десятичную систему счисления. в ответе напишите полученное число.

10101001(2)=169(10)

                    

169 Получается путем умножения каждой цифры на основание системы в степени

1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:

5 * 20 = 100 ложек.

2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:

100 * 5 = 500 грамм.

3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:

650 - 500 = 150 грамм.

ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.

1)

var a: array [1..10] of integer;

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

var a: array [1..10] of integer;

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

var a: array [1..10] of integer;

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.