Question

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 1000­. Допишите на алгоритмическом языке программу, которая находит и выводит количество элементов массива, которые заканчиваются на 7 и не делятся на 3. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них. нач целтаб a[1:30] цел i, j, k нц для i от 1 до 30 ввод a[i] кц ... кон

Answer 1

Ответ: (напишу на Паскале, сами транслируйте)

k := 0;

for i := 1 to 30 do

 if (a[i] mod 3) <> 0 then begin

   j := 10;

   while a[i] div j > 0 do

     j := j * 10;

   if a[i] mod j = 7 then

     k := k + 1;

 end;

writeln(k);

Answer 2

Вот алгоритм, который выполняет указанную задачу согласно предоставленному фрагменту программы:

plaintextCopy code
нач
  целтаб a[1:30]
  цел i, j, k
  
  цел num_elements
  num_elements := 0
  
  для i от 1 до 30
    ввод a[i]
    
    если a[i] % 10 = 7 И a[i] % 3 ≠ 0 то
      num_elements := num_elements + 1
    кц
    
  кон
  
  вывести num_elements
  
кон

Обратите внимание, что в предоставленном фрагменте программы не были предоставлены конкретные значения для элементов массива a, поэтому вам следует вводить значения для каждого элемента массива в цикле с помощью оператора ввод. Затем алгоритм проверяет каждый элемент массива на условие "заканчивается на 7 и не делится на 3". Если элемент соответствует этому условию, счетчик num_elements увеличивается, и в конце алгоритм выводит значение num_elements, то есть количество подходящих элементов в массиве.