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
Например: Integer - переменные целого типа (-1, -2, -3, 3,0, 123 и т. д)
Real - дробные переменные (3.88, 0.5 и т. д)
Таких переменных очень много. (в том же Pascale)
String - благодаря ей, с клавиатуры вводишь нужное число/слово .
Var x: integer; y: real; z:string;
Тогда, если сделаешь уравнение:
X-Z+Y =
Тебе нужно будет ввести, например:
X - 56
Y - 8.56
Z - ( в данном случае число) 845
Он тебе посчитает.
Если поставить, чтобы X Y Z вводились с клавиатуры, по одному алгоритму, можно решить кучу одинаковых задач с разными данными.
Надеюсь
Удачи!