Фільтрація у базах даних це

Program dlksjijh;
var
  A: array[1..40] of integer;
  i: integer;
begin
  randomize;
  writeln('исходные данные:');
  for i := 1 to 40 do
  begin
    A[i] := Random(21);
    write(A[i], ' ');
  end;
  writeln;
  writeln('преобрезованный массив:');
  for i := 1 to 40 do
  begin
    if A[i] mod 2 = 0 then
      A[i] := Round(A[i]/2)
    else
      A[i] := A[i] * 3;
    write(A[i], ' ');
  end;
end.

Имена математических операций - с прописной буквы, и, поскольку есть  Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.

У меня работает.

#include <iostream>  //подключаем библиотеки

using namespace std; //пространство имён

int main() {

 

setlocale(LC_ALL, "Russian");

 

int tableInt;  //последовательность

int x;   //икс :)

bool ZaB = true;  //бул для красоты

 

cout << "Введите переменную X: "; cin >> x;  //просим X

cout << "Введите последовательность через пробел: ";  //последовательность

 

while(cin >> tableInt)   //цикл

{

 if(ZaB)  //для красоты

 {

  cout << "Результат: ";

  ZaB = false;

 }

 if(tableInt != 0 && tableInt > x)  //вывод того, что больше

 {

  cout << tableInt << " ";  //если ноль, то конец!

 }else if(tableInt == 0)

 {

  break;

 }

}

 

return 0; //возращаем ничего

}