Известны данные о мощности двигателя 30 моделей легковых автомобилей. выяснить, есть ли среди них модель, мощность двигателя которой превышает 200 л.с. подскажите !

а в чем  таблица дана?

например в excel можно поставить фильтр.

а  в субд так же можно отфильтровать либо прото фильтром, дибо запросом через фильтр.

Program z2; var       a: array [1..5] of integer;       i: integer;       has_negative, has_zero, has_twodigit: boolean; begin       for i : = 1 to 5 do       begin               readln(a[i]);               has_negative : = has_negative or (a[i] < 0);               has_zero : = has_zero or (a[i] = 0);               has_twodigit : = has_twodigit or ((a[i] > = 10) and (a[i] < 100));       end;       writeln('меньше нуля: ', has_negative);       writeln('есть ноль: ', has_zero);       writeln('есть двузначное: ', has_twodigit); end.

Var       a: array of integer;       n, i: integer; begin       readln(n);       a : = new integer[n];             for i : = 0 to a.length-1 do       begin               if i = 0 then                       a[i] : = 2               else                       a[i] : = a[i - 1] * 2;                                     write(a[i], ' ');       end;       end.