Составьте программу, которая определяет количество чисел больших 10 и меньших 20 среди 50 заданных

#include < iostream>

#include < iterator>

#include < vector>

 

using namespace std;

 

int main() {

  int n = 5;

  int m = 6;

 

  vector< vector< int> > a(n, vector< int> (m));

 

  for (int i = 0; i < n; ++i) {

    for (int j = 0; j < m; ++j)

      cin > > a[i][j];

  }

 

  vector< double> ans(m);

 

  for (int i = 0, q = 0; i < m; ++i, ++q) {

    int sum = 0;

    int cnt = 0;

 

    for (int j = 0; j < n; ++j) {

      if (a[j][i] < 0) {

        sum += a[j][i];

        ++cnt;

      }

    }

 

    if (sum)

      ans[q] = sum / (double)cnt;

  }

 

  copy(ans. ans. ostream_iterator< double> (cout, " "));

}

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readlninteger('n=');

  var r : = new integer[n];

  repeat

    var a : = readlnstring.tochararray;

    if a.length < > n then break;

    if a.where(c -> c = '+').count = 1 then

      inc(r[a.indexof('+')])

  until false;

  r.transform(t -> t > = 0.07 * n ? 1 : 0);

  r.numerate.where(t -> t[1] = 1).select(t -> t[0]).println

end.

пример

(окончание ввода - строка длины отличной от n)

n= 5

-+

--+--

-+

+

-+

--+--

-+

+

+

-+

1 2 3 5