Серёжа пишет 40 сообщений в день в whats app. каждое сообщение содержит 100 символов. объём всех сообщений, которые серёжа отправляет за один день, равен 8000 байт. вопрос 1. сколько бит необходимо для кодирования одного символа в серёжиных сообщениях? в ответе запишите только одно число без добавления единиц измерения. вопрос 2. сколько секунд потребуется для передачи двух фотографий, каждая из которых имеет информационный объём равный 3,2 мбайт, если известно, что скорость интернета у серёжи 32 мбит/c. ответ напишите с точностью до одного знака после запятой, единицы измерения писать не нужно

Здесь пришлось учитывать положительные и отрицательные числа, т.к. длина строки с отрицательным числом включает в себя и знак минус. Поэтому в некоторых местах программы я добавлю пояснение.

var
   n,p:integer;
   s: string;
begin
  write ('Введите число: ');
  readln (n);
  if n<0 then n:=-n; // отрицательное число переделываем в положительное, чтобы "длина строки" ниже не получилась больше количества цифр в числе
  str(n,s); // преобразуем число в строку, чтобы узнать длину числа (количество цифр)
  if (length(s) mod 2)=0 then n:=n div 10; // проверяем длину числа на четность. так как нам нужны цифры с НЕЧЕТНЫХ мест, убираем из числа последнюю цифру, которая стоит на ЧЕТНОМ месте:    
  p:=1;
  while n>=1 do begin // организуем цикл ПОКА число не станет меньше единицы (в цикле мы будем отрезать от него по две цифры)
    p:=p*(n mod 10); // произведение умножаем на последнюю цифру числа (остаток от деления числа на 10)
    n:=n div 100; // отрезаем от числа 2 последние цифры. (в последней итерации цикла оно примет вид 0,0х, т.е. будет больше 0, но меньше 1)
  end;
  writeln;
  writeln ('Произведение цифр,которые расположены на нечётных позициях, = ',p);
  end.


Проимер:

Введите число: -2323
Произведение цифр,которые расположены на нечётных позициях, = 4

Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному.

const n=10;
var
  a: array[1..n] of integer;
  mn,mx: integer;
  i,k1,k2: byte;
begin
  mn:=maxint;
  mx:=-maxint;
  writeln ('Введите ',n,' чисел: ');
  for i:=1 to n do begin;
    read (a[i]);
    if a[i]<mn then begin mn:=a[i]; k1:=i end;
    if a[i]>mx then begin mx:=a[i]; k2:=i end;
  end;
  for i:=1 to n do 
    if (i>min(k1,k2)) and (i<max(k1,k2)) then a[i]:=0;
  writeln;
  writeln ('Местоположение минимального элемента: ',min(k1,k2));
  writeln ('Местоположение максимального элемента: ',max(k1,k2));
  writeln;
  print (a);
end.


Пример:
Введите 10 чисел: 5 2 9 4 6 8 2 1 3 7

Местоположение минимального элемента: 3
Местоположение максимального элемента: 8

5 2 9 0 0 0 0 1 3 7