Дано n чисел, сосчитать количество чисел, которые меньше -15, найти сумму кратных 9, но не кратных 6. , напишите программу для pascal и кратко объясните решение, завтра контрольная, а я циклы пропустил по болезни : (

var

  a: integer;   //a - вводимое число

  kol, s: integer;   //kol - количество чисел, кратных 9, но не кратных 6; s - сумма чисел, которые меньше -15

  i: integer;   //переменная для цикла

  n: word;

 

begin

  n: = 0;   //обнуляем счетчик

  s: = 0;   //обнуляем сумму

  writeln('введите число n');

  readln(n);   //вводим n

  for i: = 1 to n do   //вводим число n раз

  begin

    writeln('введите целое число');

    readln(a);

    if a < -15 then kol: = kol + 1;   //если число < 15, то прибавляем к счетчику 1

    if (a mod 9 = 0) and (a mod 6 < > 0) then s: = s + a;   //если число кратно 9, но не кратно 6, то прибавляем это число к сумме

  end;

  writeln('количество чисел, которые меньше -15:   ', kol);   {выводим количество чисел и сумму}

  writeln('сумма чисел, кратных 9, но не кратных 6:   ', s);

end.

//dev-c++ 5.11 #include < iostream> using namespace std; int main(void)   {float x,y,z=0;   cin> > x> > y> > z;   if(x+y+z< 1)   {float min=x;   if (min> y) min=y;   if (min> z) min=z;   if (min==x) x=(y+z)/2;   if (min==y) y=(x+z)/2;   if (min==z) z=(x+y)/2; }   else   if(x> y) y=(x+z)/2; else x=(y+z)/2;   cout< < x< < " "< < y< < " "< < z< < " ";   return 0; } пример ввода: 1.1 2.2 3.3 пример вывода: 2.75 2.2 3.3