<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
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.
<h3>Пример</h3>
(окончание ввода - строка длины отличной от N)
N= 5
-+---
--+--
-+---
+----
-+---
--+--
-+---
+----
----+
-+---
1 2 3 5
Потребительский кредит - кредит, предоставляемый непосредственно гражданам или домашним хозяйствам для приобретения предметов потребления
дерево
наземная часть подземная часть
ветви ствол корни
листья , плоды кора корешки
учебника информатики 7 класс
глава I глава II глава III глава IV глава V
параграф1 параграф1 параграф1 параграф1 параграф1
параграф2 параграф2 параграф2 параграф2 параграф2
параграф3 ............ ............. ............. ............
...........
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
У вас есть картинка если да то я смогу ответить просто прикрепите картинку