1. Дано целое число. Проверить, является ли оно кратным 4, или кратным 6. Из диапазона чисел от 150 до 350. 2. Найти количество чисел кратных 12 из диапазона чисел от 50 до 500.

помгите​

Const
  n = 30;

var
  x: array[1..n] of integer;
  i, t, min: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  min:=32767;
  for i := 1 to n do
  begin
    t := Random(1001)-500;
    x[i] := t;
    Write(t:5);
    if Odd(i) and (t mod 5 = 0) and (min>t) then min:=t
  end;
  Writeln;
  Writeln('Минимальный нечетный элемент, кратный 5, равен ',min)
end.

Тестовое решение:
Элементы массива
  -64  438 -290  358 -424  234 -444  -17  171  -57 -373 -279  242 -403 -262   34 -488  365  341 -468  163 -276  193 -140  126 -466 -236  -34  350 -369
Минимальный нечетный элемент, кратный 5, равен -290

25Кбайт = 625*1024 байт = 640000 байт
625кбайт = 625*1000 байт = 625000 байт
Потому 2 возможных решения:
640000 байт = 640000*8 = 5120000 бит
625000 байт = 625000*8 = 5000000 бит

скорость = Объем бит / время
отсюда
время = Объем бит / скорость

5120000 бит / 128000 бит/c = 5120000 / 128000 = 40 c
5000000 бит / 128000 бит/c = 5000000 / 128000 = 39,0625 c

Думаю правильней 40 с, так как Килоба́йт (КБ, Кбайт [1]) — единица измерения количества информации, равная 1024 байтам. Действующий ГОСТ [1] указывает на такое определение килобайта как на некорректное, но исторически сложившееся.
Но! Кто его знает, может вам дают уже по новой методике  так что вспомните была написано "кбайт" или "Кбайт"
Я бы выбрал 40, так как в свое время нас учили именно так