Поделитесь своими знаниями, ответьте на вопрос:
Василий проверяет скобочные последовательности. Правильной скобочной последовательностью называется такая строка из открывающихся и закрывающихся скобок, в которую можно подставить символы 1 и + так, чтобы получилось верное арифметическое выражение. Например, (()()) - правильная скобочная последовательность. Потому что можно составить арифметическое выражение 1+((1+1)+(1+1) А вот (())) неправильная скобочная последовательность. У Василия есть строка s состоящая только из круглых скобок Василию найти максимальную длину префикса строки s, являющегося правильной скобочной последовательностью. Префиксом строки называется часть строки, которая начинается с первого символа и заканчивается на каком-то другом символе. Формально, если строка состоит из символов s1...sn, то префикс это s1...si для некоторого i. Сама строка тоже является префиксом самой себя.
a: array[1..100, 1..100] of integer;
i, j, m, n, count2, countx, x: integer;
begin
{ввод матрицы}
n := 10;
writeln('Данные матрицы:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(200) - 100;
write(a[i, j]:4, ' ')
end;
writeln;
end;
write('x = ');
readln(x);
count2 := 0;
countX := 0;
for i := 1 to n do
for j := 1 to n do
begin
if a[i, j] = x then
countX := countX + 1;
if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
count2 := count2 + 1;
end;
writeln('countX = ', countX);
writeln('count2 = ', count2);
end.