заполни пустые клетки в таблице смежности для графа изображенного на рисунке​

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.

а) pas вот это правильный ответ!

1)6шаров

2)4шаров

3)7шаров

4)5шаров

program a1; var a: array[1..30] of integer;       amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], '  '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do  if a[i]> amax then begin  amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do  if a[i]< amin then begin  amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];

a[imin]: =a[imax];

a[imax]: =s; for i: =1 to n do  writeln(a[i],'  '); end.