Var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; p:double; b:array[1..30]of integer;beginp:=1;randomize;write('Введите n: ');readln(n); writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10)-5;write(r[i,j]:4);end;writeln;end; writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i>=j then beginwrite(r[i,j]:4);if r[i,j]> 0 then begin k:= k + 1; p:= p * r[i,j]; b[k]:= r[i,j]; end;end elsewrite(' ':4);end;writeln;end;writeln('p = ', p);writeln(b);end.
a = [] with open('input.txt', 'r') as f: n = int(f.readline()) for i in range(n): inp = f.readline() x, y = list(map(int, inp.split())) a.append((x, y))
k = 0 for i in range(n - 1): for j in range(i + 1, n): if (a[i][0] == a[j][0]) or (a[i][0] == a[j][1]) or (a[i][1] == a[j][0]) or (a[i][1] == a[j][1]): k += 1 with open('output.txt, w') as f: f.write(k) https://pastebin.com/sHe7sFyc - тут все отформатировано красиво(просто на знаниях неудобно вставлять код)
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10)-5;write(r[i,j]:4);end;writeln;end;
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i>=j then beginwrite(r[i,j]:4);if r[i,j]> 0 then begin k:= k + 1; p:= p * r[i,j]; b[k]:= r[i,j]; end;end elsewrite(' ':4);end;writeln;end;writeln('p = ', p);writeln(b);end.
with open('input.txt', 'r') as f:
n = int(f.readline())
for i in range(n):
inp = f.readline()
x, y = list(map(int, inp.split()))
a.append((x, y))
k = 0
for i in range(n - 1):
for j in range(i + 1, n):
if (a[i][0] == a[j][0]) or (a[i][0] == a[j][1]) or (a[i][1] == a[j][0]) or (a[i][1] == a[j][1]): k += 1
with open('output.txt, w') as f:
f.write(k)
https://pastebin.com/sHe7sFyc - тут все отформатировано красиво(просто на знаниях неудобно вставлять код)