Самостоятельная работа «Одномерные массивы. Питон»
1) Дан массив А из 25 элементов. Элементы массива могут принимать целые значения от -1000 до 1000 включительно. Найти и вывести сумму элементов массива, значения которых положительны, кратны 3 и оканчиваются на 6. Если таких чисел нет, нужно вывести ответ 0.
2) Дан массив А, содержащий 20 целых чисел, по абсолютной величине не превышающих 3000. Необходимо найти в этом массиве количество элементов, которые кратны 5, а их десятичная запись заканчивается цифрой 0, и заменить каждый из таких элементов на это количество. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке.

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

скорость в мб/c 100/8 = 12,5 мб/c

переведем в кб/с = 12,5 * 1024 =   12800 кб/с

тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд