1. Первое электронное письмо содержит 60 символов из 16-символьного алфавита, а второе ¬– 20 символов из 64-символьного алфавита. На сколько объём одного письма больше другого? 2. Документ, набранный на компьютере, содержит 32 страницы, на каждой станице 40 строк, в каждой строке 48 символов. Определите информационный объём документа в килобайтах, если каждый символ кодируется 8 битами.

3. Сколько символов в сообщении, если объём сообщения равен 100 Кбайт, а в алфавите 1024 символа?

4. В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите информационный объём (в битах и байтах) следующего текста в данной кодировке:

Подумать не успев, скажу: ты всех милей;

По​

На этот раз вроде бы и не торопился, все просмотрел (но наверняка, как всегда что-нибудь просмотрел)))), и кажется мне, что "школьное" решение уважаемого Эникея не удовлетворяет поставленной задаче (боюсь, что опять придется извиняться, но все же рискну).
Из массива не удалены все отрицательные элементы. Их не видно, потому что распечатывается не весь массив. На первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на своих местах, просто они не выводятся на печать. Вот поэтому я считаю, что это решение некорректно, поставленная задача не выполнена.
Свой вариант решения привожу на втором скане.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите',ReadInteger('n='));
  a:=a.Where(x->x>=0).ToArray; a.Println
end.

Пример
n= 5
Вводите 3 -2 0 -1 5 8
3 0 5

То же, в терминах Pascal ABC ("по-школьному")

const
  k=50;
var
  n,i,m:integer;
  a,t:array[1..k] of integer;
begin
  Write('n='); Read(n);
  Write('Вводите: ');
  for i:=1 to n do Read(a[i]);
  m:=0;
  for i:=1 to n do
    if a[i]>=0 then begin
      m:=m+1;
      t[m]:=a[i]
      end;
  n:=m;
  for i:=1 to n do begin
    a[i]:=t[i];
    Write(a[i],' ')
    end;
  Writeln
end.

Думаю, есть о чем подумать: почему в школе учат писать длинно и сложно?