Файл размером 3 Мбайта передаётся через некоторое соединение за 60 секунд.
Определите размер файла (в Кбайтах), который можно передать через это же
соединение за 20 секунд.

ответ:1024кб, так как 3 мегабайта ето 3*1024 =3072 а так как время меньше в 3 раза то 3072:3=1024кб

pascalabc.net

begin

  // последовательность целых чисел вводится с клавиатуры

  // пока не будет введен 0 (который не войдет в нее).

  // затем последовательность преобразуется в массив (toarray)

  // нужного размера, который сохраняется с именем a

  var a : = readseqintegerwhile(p -> p < > 0).toarray;

  // заведем счетчики для количества положительных kp и

  // отрицательных kn элементов и обнулим их

  var (kp, kn) : = (0, 0);

  // просматриваем в цикле массив. на каждом шаге p будет обозначать

  // очередной элемент массива

  foreach var p in a do

    if p > 0 then       // если элемент положительный

      kp += 1               // добавим 1 в счетчик положительных

    else if p < 0 then   // если элемент отрицательный

      kn += 1;               // добавим 1 в счетчик отрицательных

  // осталось вывести результаты

  writeln('положительных чисел ', kp, ', отрицательных ', kn)

end.