Pascal. Eсли число чётное и положительное, то разделить его на 10, иначе вывести сообщение "число не удовлетворяет условию"​

Условие задачи совершенно некорректное или авторы задачи не в теме или ты что-то напутала, но попробую хоть чем то Не понятно, освобождается ли тот кусок ОЗУ после его выгрузки на флешку. 

Если НЕТ(а именно так чаще всего и бывает), то ответ - не изменится.

2. Если ДА, то не известно, этот кусок - буфер для загрузки только одного изображения, в который изображения последовательно считываются по одному, а затем по одному выгружаются на флешку, в конце буфер очищается.

2.1 Если алгоритм такой как описан, то ответ такой

Если до начала операции копирования было N байт свободно, то в процессе работы было (N-16К) свободно, а по окончании копирования опять N.

2.2 Если буфер больше одной фотографии, допустим, на m фотографий, то

До начала операции копирования было N свободных, во время копирования (N - m*16K) свободно, по окончанию копирования снова N.

 

Вот где-то так, ну а N зависит от многих факторов, а именно - физически установленный размер ОЗУ, занятая часть ОЗУ на момент запуска операции копирования, что зависит от типа ОС, запущенных процессов и пр.

Ну и ещё сама программа копирования ведь тоже размещается в ОЗУ и если её величина Р байт, то в процессе копирования(п. 2.2) будет свободно (N - m*16K-P) байт.

 

Так что ответ вот такой, потому что задача сформулирована, повторюсь, КРАЙНЕ НЕКОРРЕКТНО, без понимания происходящих процессов.

 

 

Var 
mas: array[1..7] of integer;
k, i, MAX:integer;

Begin
for i:=1 to 7 do
  Begin
  writeln('Введите число');
  readln(mas[i]); 
  end;

MAX:=mas[1];
k:=1;
for i:=2 to 7 do
  Begin
    if mas[i] > MAX   
       then      
          Begin       
               MAX:=mas[i];       
                k:=1;     
          end   
       else        
            if MAX=mas[i]          
                 then k:=k+1;
  end;

writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);

readln();
end.