Нужно написать программу в паскале. на выборах в государственную думу в избирательные бюллетени внесено n партий. электронный сканер для считывания информации с бюллетеней передаёт информацию о каждом бюллетене в следующем формате: если в соответствующей клетке бюллетеня стоит пометка, то сканер передаёт + (плюс), в противном случае он передаёт − (минус). таким образом, он передаёт последовательность из n символов — плюсов и минусов. бюллетень считается действительным, если пометка есть ровно в одной клетке. недействительные бюллетени в подсчёте результатов выборов не участвуют. партия проходит в государственную думу, только если она набирает не менее 7% от общего числа действительных бюллетеней. требуется вывести номера (в порядке их перечисления в бюллетене) всех партий, которые проходят в государственную думу.

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

Pascalabc.net const   n=10; var   a: array[1..n,1..n] of integer;   i,j,kp,kq: integer;   p,q: array of integer; // динамические массивы begin   randomize;   writeln('исходный массив из случайных чисел');   kp: =0; kq: =0;   setlength(p,n*n); setlength(q,n*n);   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =random(101)-50; // диапазон [-50; 50]           write(a[i,j]: 4);           if a[i,j]> 0 then begin p[kp]: =a[i,j]; inc(kp) end           else               if a[i,j]< 0 then begin q[kq]: =a[i,j]; inc(kq) end           end;       writeln   end;   setlength(p,kp); setlength(q,kq); // отрегулировали по заполнению   writeln('положительные');   for i: =0 to kp-1 do write(p[i],' '); writeln;   writeln('отрицательные');   for i: =0 to kq-1 do write(q[i],' '); writeln end. пример исходный массив из случайных чисел   46  47  -8 -32  36  41 -49 -15  25 -33   18  15    1  15  21  43  30  41 -15 -21   -48  15  -5  17  19  30 -38    0  10  11   -16  10  48 -30 -40 -49 -48  24  18  24   47  45  50  44  -3 -15  19  29 -13  38   -23    3 -23  19  19 -19    1  26    0 -45   28    1  26 -36  34 -43  18 -19    4  19   41 -45 -27  12 -18 -43  16    1 -31 -17   -39 -16 -37  22 -17  31 -17 -22    1  30     0 -24 -27  12  46  -4 -32  36 -40 -11 положительные 46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36 отрицательные -8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11