Файл размером 16 кбайт передается через некоторое соединение со скоростью 4096 байт в секунду. определите размер файла (в байтах) который передается через это же соединение за 256 байт в секунду

16 Кбайт = 16 384 байт
Скорость передачи 4096байт в секунду, значит первый файл передастся за:
16384/4096=4 секунды

Вот с второй частью, тут либо ошибка, и:
1) имелось ввиду 256секунд, либо чего-то забыли дописать из условия. Например количество секунд, а скорость соединения 256байт\секунду.
2) Либо имелось ввиду, что время затраченное на передачу файла такое же, как и в первом случае.
Для первого случая 4096байт*256секунд=передано 1048576 байт = 1024 килобайт
Для второго случая: 256байт*4секунды=передано 1024байта = 1килобайт

1. Короткий вариант

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('k=',a.Where(x->x>0).Count)
end.

Тестовое решение
n= 15
-69 10 83 -61 -21 -98 -75 -78 27 88 67 -84 61 62 -41
k=7

2. "Школьный" вариант (а кто сказал, что будет легко?)

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
const
  nn=100;
var
  i,n,k:integer;
  a:array[1..nn] of integer;
begin
  Write('n= '); Read(n);
  Randomize;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(199)-99;
    Write(a[i],' ');
    if a[i]>0 then Inc(k)
    end;
  Writeln;
  Writeln('k=',k)
end.

Тестовое решение
n= 15
28 46 88 -14 -55 -25 52 43 -7 17 71 -8 -34 56 79
k=9

Вводим обозначения для утверждений:
a - первая буква гласная
b - больше 5 букв
c - последняя буква гласная

Записываем в этих обозначениях исходное условие, а затем упрощаем его:


Подставляем высказывания вместо введенных временных обозначений:
(первая буква гласная ИЛИ больше 5 букв) И последняя буква НЕ гласная

Даны слова; фиалка, георгин, лилия, лютик. Применяем к каждому слову полученное условие.
- отбрасываем слова, у которых последняя буква гласная и остается только "георгин";
- проверяем, гласная ли первая буква - нет;
- проверяем, больше ли в слове букв, чем 5 - да.

"Георгин" проверку