Question

Написать программу: В массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу. ​

Answer 1

var

   numbers: Array[1..10] of Integer;

   i, first, last, count, num: Integer;

begin

   writeln('Введите 10 чисел');

   

   for i := 1 to 10 do

       readln(numbers[i]);

   first := numbers[1];

   last := numbers[10];

   

   for i := 1 to 10 do begin

       num := numbers[i];

       

       if (num >= first) and (num mod first = 0) then

           if (num < last) or (num mod last <> 0) then

               count := count + 1;

   end;

   

   writeln(count);

end.