program array_k;
var k, n: integer;
var a: array[1..15, 1..15] of integer;
begin
writeln('Задайте порядок матрицы n (0 < n < 15)');
readln(n);
writeln('Задайте число k (0 < k < n)');
readln(k);
for m: integer := 1 to n do
begin
writeln;
for o: integer :=1 to n do
begin
a[m, o] := random(30) + 1;
//+1 - чтобы избежать деления на ноль
write(a[m, o] : 5, ' ')
end
end;
writeln;
for m: integer := 1 to n do
begin
writeln;
for o: integer := 1 to n do
if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')
else write(a[m, o] : 5, ' ');
end
end.
a = input()
mas = []
answer = ""
test01 = "Incorrect"
test02 = "Incorrect"
def check():
global mas
global answer
global test01
global test02
#Bad, but this test01 deleted
#Second step for check
for infinity in range(100):
for i in range(len(mas)):
try:
m = i + 1
if mas[i] == "[" and mas[m] == "]" or mas[i] == "{" and mas[m] == "}" or mas[i] == "(" and mas[m] == ")":
del mas[i]
del mas[i]
except:
pass
if len(mas) == 0:
test02 = "Correct"
break
else:
test02 = "Incorrect"
#End testing
if test02 == "Correct":
answer = "correct"
else:
answer = "incorrect"
for i in range(len(a)):
if a[i] == "{":
mas.append(a[i])
if a[i] == "[":
mas.append(a[i])
if a[i] == "(":
mas.append(a[i])
if a[i] == "}":
mas.append(a[i])
if a[i] == "]":
mas.append(a[i])
if a[i] == ")":
mas.append(a[i])
del a
del i
check()
print(answer)
Объяснение:
Благодарности не требую, все ради Вас отметить как лучшее решение
10/10
