1по информатике! дан массив из 12 элементов. найти количество элементов массива по абсолютной величине больших 15.

Var a: array [1..12] of integer; i,s: integer; begin writeln('vvedite 12 chisel'); for i: =1 to 12 do readln(a[i]); writeln('massiv'); for i: =1 to 12 do write(a[i],' '); writeln(); for i: =1 to 12 do if abs(a[i])> 15 then s: =s+1; writeln('kolichestvo elementov  = ',s) end.

#include < iostream> using namespace std; int main() {      for(int i = 10; i < 100; i++)    {                  if(i/10 == 2*(i%10))                    cout < < i < < " ";     }                return 0; } пример на с++  но если надо на другом языке, то суть такова: 1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например 2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен   удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть) то на экран выводится это число i 

#include < iostream> using namespace std; int main() {       int m, n;       // выделение памяти и ввод матрицы       cout < < "m = ";       cin > > m;       cout < < "n = ";       cin > > n;       int **matrix = new int*[m];       for (int i = 0; i < m; ++i)       {             matrix[i] = new int[n];             for (int j = 0; j < n; ++j)                   cin > > matrix[i][j];       }       // вычисление суммы элементов каждого столбца. определение наибольшего       // значения этих сумм и номер соответсвующего столбца       int sum, max_sum = int_min, max_column;       for (int j = 0; j < n; ++j)       {             sum = 0;             for (int i = 0; i < m; ++i)                   sum += matrix[i][j];             cout < < "column " < < j < < " - sum " < < sum < < endl;                         if (sum > max_sum)             {                   max_sum = sum;                   max_column = j;             }       }       cout < < "max sum in column " < < max_column < < ". max sum is " < < max_sum < < "." < < endl;       // удаление матрицы       for (int i = 0; i < m; ++i)             delete[] matrix[i];       delete[] matrix; }